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INTRODUCTI^'.* 


A  "sinale-point"  design  is  defined  as  a  helicopter  which 
satisfies  a  specification  defining  a  sinale  altitude, 
temperature,  payload  combination ,  in  addition  to  some 
prescribed  mission-  While  it  is  admttedlv  an  over- 
simpli  fication  to  doserih*-  or*  sen  n*:  licor-ters  as  our6 
single-point  desicn  vehicles,  this  criterion  is  certainlv 
a  major  factor  in  their  final  cor.f  i aeration  - 

A  "two-point"  desicn  is  defined  as  one  which,  in  addition 
to  the  sincle-point  criterion ,  has  '  een  sized  so  as  to  be 
able  to  make  full  use  of  the  additional  cower,  torcue,  and 
liftinc  cacafci litv  availab.e  a"  scr-i  other  altitude  and 
temperature  condition  ( usual lv  lower  and  cooler). 


A  single-point  design  has  the  advantage  of  being  the  lightest 
weight  vehicle  capable  of  performing  the  stated  mission-  The 
single-point  design  vehicle  will  also  have  lower  initial  costs 
than  any  other  vehicle  capable  of  performinc  the  same  mission. 
However,  since  the  engines  in  a  sm.ise-poi'i  d-i-sior.  -chicle 
must  be  capable  of  producing  enough  power  to  hover  at  high 
density  -  altitude,  usually  4000  ft,  S53r,  it  will  have  power 
available  at  lower  density  altitudes  which  cannot  be  handled 
by  its  power  transmission  system  and  lifting  capability  which 
cannot  be  handled  by  the  fuselage  structure.  In  actual 
operation,  the  helicopter  will  either  be  performing  below 
its  engine  capabilities  or  "c  torque  and  structural 

limits . 

The  two- ooint  desicn  will  be  heavier  and  have  higher  initial 
costs-  It  will,  however,  he  able  to  take  advantage  of 
(some  of)  its  additional  caoabilitv.  It  will  be  able  to 
safely  carry  greater  loads  and  will  have  greater  endurance. 
Because  it  is  less  susceptible  to  arose,  :ts  maintenance 
costs  will  bo  reduced-  Den^ndin-  on  what  is  selected  as 
the  second  design  point,  th“  nar~  *  ar  CP'-ratinc  conditions, 
and  the  appropriate  effectiveness  criteria,  this  vehicle 
can  be  siani ficantlv  more  cost  effective. 

It  is  the  purpose  of  this  project  to  develop  a  method  for 
the  selection  af  the  most  cost-effective  second  design  point 
and  to  develop  a  better  understand: nc  of  the  concept  and  the 
factors  which  affc-ct  the  selection. 
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Primary  data  includes  the  production  quantity,  the  attrition 
rate  and  service  life  and  flight  hours. 

The  last  logical  block  makes  use  of  pavload  utilisation  data, 
environmental  data  and  results  in  the  determination  of  total 
costs  and  effectiveness. 

These  four  blocks  will  now  be  described  in  more  detail  in 
terms  of  the  modules  included  in  them.  These  modules  rep¬ 
resent  the  basic  computation  required.  In  this  discussion, 
the  function  of  each  module  will  be  indicated  but  the  actual 
relationships  used  will  be  presented  in  later  sections.  The 
model  described  here  is  for  a  utility  helicopter  but  is 
typical  of  all  the  models.  When  details  are  discussed,  the 
differences  between  the  models  will  be  indicated. 

Single-Point  Design 

The  modules  in  the  first  major  block  of  operations  are  com¬ 
puted  in  the  following  order: 

SIZE 

TO  ALLOWANCE  AND  CRUISE 
MAX  RANGE 
TOTAL  FUEL 
STAT  WEIGHT 
GROSS  WEIGHT 

The  functions  of  each  of  these  modules  are  aiven  in  the 
following  paragraphs. 

SIZE  -  This  module  computes  the  power  required,  based 
on  the  temperature,  altitude,  rate  of  climb,  gross 
weight,  and  disc  loading.  In  addition,  such  data  as  fiat 
plate  area,  main  rotor  radius,  and  takeoff  power  are 
also  computed. 

TO  ALLOWANCE  AND  CRUISE  -  This  module  computes  the 
fuel  consumed  during  the  takeoff  and  cruise  at  Vmax 
segments  of  the  mission. 

MAX  RANGE  -  The  speed  for  maximum  range  is  determined, 
and  cruise  at  this  speed  is  carried  out  with  a  fuel 
used  computation. 

TOTAL  FUEL  -  In  this  module  the  required  fuel  reserve 
is  added  to  the  two  previously  determined  increments  to 
obtain  total  fuel  requirement. 
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STAT  WEIGHT  -  Based  on  a  statistical  weights  model 
appropriate  to  the  type  of  helicopter  beina  studied, 
the  weight  of  each  component  is  computed. 

GROSS  WEIGHT  -  This  module  simply  adds  the  empty 
weight,  fuel  weight,  crew  and  payload. 

Notice  that  the  gross  weiaht  is  required  in  the  first  module 
and  is  recalculated  in  the  last.  In  operat’  rcss 

weight  is  estimated  and  the  entire  prcces?  it. rated  until 
a  converged  gross  weight  is  obtained.  At  ..^s  point  all  the 
design  oarameters  for  the  single-point  design  have  been 
determined. 

Two-Point  Modifications 


The  second  block  of  Figure  1  which  determines  the  changes 
due  to  the  additional  design  point  contains  the  following 
modules  in  this  order: 

SIZE  (Two-point  data) 

TO  ALLOWANCE  AND  CRUISE 

MAX  RANGE 

TOTAL  FUEL 

ANAL  WEIGHT 

GROSS  WEIGHT  WO 

TO  ALLOWANCE  AND  CRUISE 

MAX  RANGE 

TOTAL  FUEL 

PAYLOAD 

ERROR 

The  first  four  modules  are  the  same  as  used  previously  except 
they  have  as  data  the  altitude  and  temperature  of  the  two- 
point  design. 

ANAL  WEIGHT  -  This  module  corrects  the  previously 
obtained  weight  by  analytically  taking  into  account 
the  changes  in  torque  and  gross  weight.  These 
effects  are  used  to  modify  the  weiqht  of  the  drive 
system,  rotor,  and  fuselage. 

GROSS  WEIGHT  TWO  -  The  gross  weight  of  the  two- 
point  design  helicopter  is  obtained. 

The  next  three  modules  determine  the  mission  fu'-'l  with  the 
new  cross  weight. 

PAYLOAD  -  This  module  determines  the  payload  capabilitv 
at  the  first  design  point. 
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ERROR  -  The  payload  just  determined  is  compared  with 
the  requirements.  If  the  pavload  is  deficient,  the 
gross  weight  is  increased  by  the  deficiency  and  the 
entire  block  is  repeated  until  convergence. 

Basic  Costs 


The  computation  of  the  basic  costs  is  accomplished  with  a 
single  module: 


PARC  COSTS 

This  module  computes  the  production,  attrition,  crew,  and 
miscellaneous  costs  on  a  per-hour,  per-production  helicopter 
basis. 

Operational  Costs  and  Effectiveness 


PAYLOADS 

OGWS 

TO  ALLOWANCE  AND  CRUISE 
MAX  RANGE 
TOTAL  FUEL 

MAINT  COSTS 

HOVER  PROB 

MEI 


PAYLOADS  -  Thi module  refers  to  input  tables  to  obtain 
discrete  payloads  and  their  respective  utilization 
frequency. 

OGWS  -  The  gross  weight  with  one  of  the  above  payloads 
is  obtained. 

The  next  three  modules  then,  as  previously,  determine  the 
total  fuel  for  the  standard  mission  with  the  specified 
payload.  The  process  is  iterated  from  the  module  OGWS  tan  til 
the  fuel  load  (and  gross  weight)  converges. 

MAINT  COSTS  -  The  maintenance  costs  are  computed  based 
on  the  ratios  of  gross  weights,  computed  MTBF's,  and 
overload  effects. 
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HOVER  PROB  -  This  module  uses  environmental 
data  to  determine  the  integrated  probability 
that  the  helicopter  can  perform  the  required 
mission. 

ME I  -  The  mission  effectiveness  index  and  the  overall 
cost  effectiveness  are  computed. 

MISSION  DEFINITIONS 

One  of  the  objectives  of  this  study  is  to  develop  models  that 
have  the  capability  to  treat  a  mission  profile  consisting  of 
a  number  of  different  types  of  mission  segments.  These  are: 

(a)  ground  operation,  e.g.,  engine  start,  warmup,  and  check¬ 
out;  Co)  takeoff;  (c)  climb;  (d)  cruise  at  given  airspeed; 

(e)  cruise  at  airspeed  for  maximum  range;  (f)  dash  at  Vmax; 

(g)  loiter;  (h)  hover,  e.g.,  loading  or  unloading  of  cargo; 

(i)  descent;  and  (j)  landing  with  a  fuel  reserve.  The  five 
mission  profiles  compiled  for  the  five  types  of  helicopters 
were  compiled  in  such  a  way  that  all  of  the  above  specified 
mission  segments  are  represented.  The  one  exception  is  the 
descent  segment,  which  is  only  implied  by  the  altitude  change 
between  the  preceding  and  following  mission  segments,  but  for 
which  no  calculations  are  performed  because  past  specifications 
reviewed  do  not  allow  distance  credit  for  the  descent  segment. 
Additional  segments  were  defined  using  recent  RFQ's  as  samples 
to  permit  construction  of  any  recently  used  mission  profile. 

Each  mission  segment  is  calculated  for  a  given  altitude  and 
temperature.  Depending  on  the  type  of  segment,  time,  dis¬ 
tance  or  airspeed  is  specified.  In  the  case  of  climb  and 
loiter,  the  airspeed  is  not  directly  specified  but  is  deter¬ 
mined  as  the  speed  for  minimum  power.  For  cruise  mission 
segments,  the  airspeed  is  either  specified  or  calculated  to 
meet  specified  criteria  as  will  be  explained  later.  In  any 
case,  the  calculation  procedure  includes  checks  that  no 
applicable  stall  or  power  or  torque  limit  is  exceeded. 

Performance  at  each  mission  segment  is  calculated  for  the 
gross  weight  at  the  start  of  the  mission  segment.  Weight 
reduction  due  to  fuel  consumption  is  accounted  for  by  sub¬ 
tracting  used  fuel  weight  for  each  succeeding  mission 
segment.  Payload  changes,  as  due  to  unloading  or  loading  of 
cargo,  rescuees,  troops,  or  armament,  may  be  accounted  for  in 
determination  of  the  initial  gross  weight  of  any  segment. 

The  drag  changes  due  to  off-loading  or  nicking  uo  of  external 
cargo,  or  disposing  of  weapons  during  the  mission  can  be 
accounted  for  similarly  to  pavload  changes  discussed  above. 


nSffiL  ~  llstin9  ot  segments  included  in  the  five  mission 

p  of lies.  me  approaches  to  the  analysis  of  these  segments 
are  given  m  the  following  paragraphs.  9 


TABLE  I.  MISSION  PROFILE 


Mission  Segment 
Ground  Operation 


Distance  Time 


Power 


Soec.  Flioht 
Idle 

Spec.  Spec. 


Climb 


Cruise  §  Given  A/S 


Cruise  ?  Given  A/S 
for  Maximum  Range 

V-nax,  Dash 


Loiter 


Look  up  Sf  -ed 
for  min.  power 


Spec. 


Calc 


Calc 


Look  up  speed 
for  min.  power 


Calc 


Calc 

Sooc. 

Calc 

Spec*. 

Calc 
Snec . 

-  i  _ 


Calc 


Spec. 

Calc 

Spec- 

Calc 


Spec. 


Calc 


Calc 


Calc  Spec. 
Calc 


Snec. 


Calc 


Hover 

Reserve 


Calc  =  Calculated 


Snec.  Calc 


Any  mission  seamen t  above  or  percent 
initial  fuel  or  both 


Spec.  -  Soecif v 


Ground  operation  fuel  flow  is  determined  directly  from  enaine 
statistics.  The  engine  is  assumed  to  be  at  flight  idle 
setting  as  would  be  the  case  for  pro  flight  checking  of 
aircraft  systems.  Review  of  engine  data  showed  that  fuel 
flow  is  a  runction  of  encine  sice  and  pressure  altitude 
resulting  in: 

FL  --  .  ISfPRAl  tr>r>\  -'r.O 


Fuel  allowance  for  the  takeoff  mission  segment  is  calculated 
per  military  specifications  as  fuel  used  at  a  given  power  and 
in  a  given  time  period.  The  power  usually  specified  is  the 
maximum  continuous  power  rating.  The  calculations  procedure 
selects  the  lesser  of  the  two  -  engine  or  transmission  power 
level  -  for  the  specified  rating  and  atmospheric  conditions 
and  determines  the  fuel  flow  for  that  using  parametric  part 
power  SFC  vs  referred  power  variation  data. 


The  climb  segment  requires  that  both  initial  and  final 
altitudes  and  temperatures  are  specified.  Power  rating  is 
specified  as  either  intermediate  or  maximum  continuous,  and 
the  calculation  procedure  determines  average  altitude  and 
temperature.  The  engine  power  available  at  the  specified 
rating  and  average  atmospheric  conditions  is  compared  with 
the  transmission  limit,  and  the  lesser  of  the  two  is  used. 

The  average  fuel  flow  is  determined  now  for  this  power.  Time- 
to-climb  determination  involves  determination  of  minimum  level 
flight  power  from  the  appropriate  table.  Then, 

z  _  33,000  (HP  available  -  minimum  HP  required) 

'  Gross  Weight 


Time  = 


.1  Altitude 


With  known  time  and  fuel  flow,  the  fuel  used  is  now 
calculated. 

Range  for  cruise  at  a  given  airspeed  is  determined  in  a  very 
straightforward  manner.  Power  is  determined  at  the  specified 
airspeed  from  appropriate  parametric  power  required  tables, 
for  which  fuel  flow  may  now  be  determined  using  part  power 
SFC  data.  Either  time  or  distance  may  be  specified  and  the 
other  is  calculated.  The  fuel  used  is  simply  the  fuel  flow 
times  the  time. 

Cruise  at  airspeed  for  maximum  range  is  similar  to  the  pre¬ 
ceding  segment  except  that  the  airspeed  is  first  determined 
by  a  procedure  where  specific  air  range  is  calculated  over  a 
range  of  airspeeds.  Peak  value  is  determined,  and  the 
corresponding  airspeed  is  then  compared  to  stall,  transmission 
or  5'ower  limited  airspeed.  The  least  of  these  becomes  the 
cruise  speed  for  maximum  range  and  is  used  *or  sense  pjent 
calculations,  as  described  above. 
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Rarge  at  maximum  airspeed  is  specified  for  either  inter¬ 
mediate  or  maximum  continuous  power  rating.  If  intermediate 
power  is  specified,  then  the  airspeed  is  defined  as  the  dash 
airspeed.  In  either  case,  engine  power  available  under  the 
qiven  atmospheric  conditions  is  checked  aaainst  transmission 
limit,  and  the  smaller  of  these  is  used  for  airspeed  deter¬ 
mination.  ;  airspeed  is  checked  so  that  it  does  not  exceed 
stall  limi  airspeed.  Power,  the  fuel  flow,  and  fuel  load 
are  calcul.  .d  as  described  before. 

For  all  of  the  range  segments,  the  distance  may  be  specified 
as  the  total  required  distance  less  distance  covered  during 
the  preceding  climb  segment,  if  any.  This  accounts  for  these 
range  or  radius  missions  where  mission  profile  requires 
"climb  on  course  to  cruise  altitude...". 

Loiter  airspeed  and  power  are  determined  from  tables  of 
performance  at  minimum  power  in  forward  flight.  Determination 
of  resulting  fuel  flow  and  fuel  is  straightforward. 

Hover  is  determined  using  the  parametric  hover  power  equation. 
Fuel  flow  and  fuel  load  determination  is  straiaht forward. 

Reserve  may  be  specified  as  a  percentage  of  initial  fuel  or 
it  may  be  specified  as  any  other  mission  segment;  i.e.,  a 
specified  time  or  distance  at  some  specified  airspeed  or 
power  level.  >Sost  commonly  used  percentage  is  10  percent. 

Table  II  lists  the  primary  mission  (first  point)  definitions 
used  in  this  study.  The  intention  is  to  cover  as  many  types 
of  segments  as  possible  and  to  specify  representative 
missions. 


PERFORMANCE  RELATIONSHIPS 


The  performance  and  weight  models  consist  of  relationships 
to  permit  specified  requirements  to  be  combined  with  a  aiven 
technology  level  to  result  in  defininq  aircraft  ceneral 
characteristics.  The  requirements  include  ability  to  hover 
or  to  have  a  maximum  speed  capability,  ability  to  fly 
specified  mission  profiles  with  a  specified  payload. 
Technology  level  is  defined  by  characteristics* of  helicopter 
components  that  will  be  attainable  at  a  given  time,  such  as 
component  weight/size  relationships,  engine  SFC  character¬ 
istics,  aircraft  drag,  power-weight-speed  relationships,  etc. 
The  application  of  the  performance  and  weight  models  results 
in  characteristics  such  as  rotor  dimensions,  weiaht  buildup 
and  engine  ratings. 
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TABLE  II.  PRIMARY  MISSION  DEFINITIONS 


Pressure 

Altitude 

OAT  TAS 

Tics 

Distance 

Change 

in 

Payload 

Change 

in 

Drac 

(ft) 

(°C)  CScn) 

(nin) 

(n  ni) 

(lb) 

(ft2) 

UTILITY  -  PL  =  2640  lb 

Ground  Oeeratior. 

v-ax'  «CP 

Best  Cruise  Speed 

Reserve :  Best  Cruise 

GCN  SHIP  -  PL  =  2C00  lb 

Cruise  3  Given  A/S 
Hover 
i^aar »  MCP 

Cruise  §  3est  Cruise  A/S 
Reserve:  Cruise  3  Best 
Cruise  A/S 

CRAKE  -  PL  =  45.000  lb 

Ground  Operation 
T.O.  Allowance  (MCP) 

Hover 

Max.  Range  Cruise 
Hover  w/o  Cargo 
Max.  Range  Cruise 
Reserve:  Max.  Range  Cruise 

OBSERVATION  -  PL  =  300  lb 

T.O.  Allowance  (MCP) 
Endurance  {Loiter) 

Reserve  -  10%  of  Initial 
Fuel 


4000 

35 

0 

8 

0 

4090 

35 

20 

4000 

35 

30 

4000 

35 

30 

4000 

35 

100 

38 

4000 

35 

0 

32 

0 

4000 

35 

8 

4009 

35 

6 

4000 

35 

30 

0 

35 

0 

10 

0 

0 

35 

9 

2 

0 

0 

35 

0 

10 

0 

0 

35 

50 

0 

35 

0 

10 

0 

0 

35 

50 

0 

35 

30 

SL 

15 

0 

3 

0 

SL 

15 

180 

-1340*  -5 


-45,000 


TRANSPORT-  -  PL  =  25,000  lb 

T.O.  Allowance  CMC?) 

Clinb 

Cruise  (MCP) 

(Descend) 

Ground  Operation 
Clicb 

Cruise  (Best  Range) 

Reserve  -  10%  of  Initial 
Fuel 


*  Expendable  Ordnance 


-25,000 


be  disLlt^iOUr,Pe-£OX,TuCe  related  cechnology  levels  will 
Sainif  K  d*  SftOUld  be  noted  that  in  some  esses  the 
meJhlS  chosen  only  serve  as  samples  to  illustrate  the 

Sn  n^0l0gy  for . determining  an  optimum  two-point  design  and 
do  not  necessarily  represent  the  actual  values 

Engine  Performance 

xhe  performance  of  a  "rubberized"  turoeshaft  encine  is 
cnaracterized  by  how  power  available  varies  with  a*-mosoheri<- 
conditions  and  how  specific  fuel  conSump^on  “  «i™ed  to 
rated  power  and  to  part  power  condition. 

tSiT’Sa?MtnS9inV?ted  availabla  varies  with  tempera- 

ture,  altitude  and  forward  speed.  The  last  effect  ram' 

is  ignored  as  negligible  for  the  relatively  l^s^ed  regime 

o^  aej-1copters  created  in  this  studv.  Th^  effect  o '  ^ 

eSnfdata  “f itio"  was  demined  empirically  from  current 
PA/PRA  =  PR [ 1  -  2.08 {TR  -1)} 

V^o  fhe  ^test  power  rating  given  at  15°C,  SL  and 

?  fcnis  s^udy  was  equated  to  the  30-minute, 
r.terme .siate  power  rating.  Similarly,  the  ratio  of  maximum 
continuous  power  to  the  highest  engine  rating  was  determined 
empirically  from  current  engine  data  resulting  in: 

P/PA  -  RA  =  .9 

®tudy  th<f  f^l  consumption  rate  is  determined  for  the 
P-ci^ied  power  level  using  the  "rubberized"  SFC  versus  uow^r 
curve  keyed  to  an  SFC  at  rated  power.  The  SFC  at  rated  oower 

y  Yo„X.fr0in  ,:>5  fc°  '7  for  carrenfc  engines  for  .36  to  .4° 
xor  1.980  s  engines.  This  data  is  presented  in  Figure  2. 

For  this  study  the  current  engine  technology  data  was  out 
into  an  equation  form  as : 

SFO  =  l.l36(PRA/NEN)~*i05 

where  NEN  is  the  number  of  engines.  Thus,  PRA/NEN  is  the 
rating  of  one  engine.  SFO  applies  to  the  hiahest  cower 
rating  at  SL,  15°C,  V  =  0. 


For  advanced  engines  for  1930  and 
reduction  of  SFL  is  projected. 


yor.c ,  2  20-percent 


SFC  VARIATION  WITH 
TECHNOLOGY  LEVEL 

\ 


©  \ 


1960  1970  1980 

TIME  OF  CERTIFICATION 


2.  SFC  Data  Conni led  for  Aircraft: 
Sizina  Studies. 


The  SFC  at  rated  power  is  determined  by  technology  level, 
engine  size,  tradeoffs  of  engine  simplicity  versus  engine 
efficiency,  and  development  history  of  the  engine.  The 
smaller  engines  have  higher  SFC  than  bigger  engines  because 
bigger  engines  can  be  designed  with  lower  percentage  losses. 
Simplicity,  such  as  the  use  of  a  fixed  shaft,  is  achieved  at 
the  expense  of  efficiency.  During  the  development  cycle  of 
an  engine,  SFC  usually  improves;  however,  growth  usually 
occurs  to  obtain  more  power  within  a  given  engine  size 
envelope,  and  SFC  improvement  is  considered  of  secondary 
importance - 


The  technology  level  is  identified  mainly  by  turbine  inlet 
temperatures  used  and  pressure  ratios  employed.  These  fac¬ 
tors  seem  to  go  up  hand  in  hand  and  result  in  lower  SFC's 
and  lower  engine  specific  weight.  The  temperatures  with 
current  values  from  1600°  to  2000°F  will  increase  to  2400°F 
in  the  1980-1990  period  requiring  advanced  materials  and 
turbine  cooling  in  various  degress.  Pressure  ratios  similarly 
will  increase  from  the  current  6:1  to  14:1  range  to  uo  to 
20:1. 

In  treating  engine  statistical  data,  the  rated  power  was 
selected  as  the  highest  thermodynamic ,  i.e.,  turbine  inlet 
temperature  limited,  rating  given,  excluding  any  "emergency” 
ratings.  Any  derating  due  to  gearbox  limits  was  ignored.  The 
highest,  i.e.,  T.O.  or  maximum  (10  minutes),  ratings  were 
used,  if  given,  instead  of  the  30-minute  limits,  assuming  that 
the  time  ratings  only  express  limits  imposed  to  achieve 
certain  TBO.  In  effect,  it  was  assumed  that  given  engine 
would  have  the  same  SFC  at  the  highest  rating  regardless 
whether  it  is  a  5-,  10- ,  or  30-minute  rating. 

For  fuel  consumption  determination  at  part  power  operation, 
the  SFC  versus  referred  power  was  "rubberized"  by  generalizing 
it  in  terms  of  SFC  and  power  at  rated  conditions,  i.e.,  SFO 
and  PRA  resulting  in  SFC/SFO  versus  PRF/PRA.  From  the  study, 
two  shapes  appeared  as  shown  in  Figure  3.  The  flatter  of  the 
two  curves  appeared  associated  with  some  of  the  proposed 
(mostly  paper)  engines,  indicating  a  possible  new  trend  in 
turbine  design  optimization  in  which  the  engine  manufacturer's 
seem  to  take  into  account  the  fact  that  a  good  portion  of  the 
time  engines  are  operated  at  part  power  and  that  it  is  here 
where  low  SFC's  pay  off.  However,  it  has  been  noted  that 
some  prototype  engines,  which  were  initially  designed  to  have 
this  flat  trend,  seem  to  have  moved  back  toward  the  current 
trend,  throwing  some  question  as  to  the  achievability  (or  the 
will  to  achieve)  of  the  projected  flat  trends.  Either  curve 
may  be  used  to  determine  SFC  at  any  power  level  once  rated 
power  and  the  corresponding  SFC  have  been  selected. 


The  ram  effect  due  to  forward  flight  reduces  the  SFC 
slightly.  Due  to  the  relatively  low  forward  speed  of  the 
helicopters  studied,  the  rans  may  be  ignored.  The  expression 
by  which  fuel  consumption  can  be  calculated  is  then: 

=  (?)  (SFC)  (5SF5KFF 

r  u 

where  ?  is  the  given  power  at  the  desired  airspeed,  SFO  is 
the  SFC  at  rated  power  determined  as  a  function  of  tech¬ 
nology  level  and  engine  size,  SSF  is  the  SFC  increase  factor 
for  part  power  operation  determined  as  a  function  of  PRF/PRA 
and  KFF  is  any  loss  or  allowance  factor  applied.  Since  in 
this  study  relative  fuel  loads  are  sought,  application  of  a 
loss  or  allowance  would  not  affect  the  conclusions  of  the 
study,  and  thus,  for  simplicity,  none  are  applied. 


Hover  and  Vertical  Flight 

A  substantial  body  of  statistics  exists  for  various  heli¬ 
copters  which  establish  a  power  required-  Blockage  losses, 
drive  system  losses,  tail  rotor  and  accessories  power  were 
not  extracted  from  the  statistics.  Thus,  the  variables  are 
gross  weight  and  (total)  power  at  the  encine  cutout  shaft- 
Data  form  is  GW/SKP  vs  DL/DR  as  is  shown  in  Ficure  4. 

This  is  consistent  with  the  traditional  C0/"  =  f (C~/- ,  -) 
presentation  if  the  latter  is  expanded  fob  a  specified  R 
and  DL.  The  curve  may  be  expressed  in  eouahicn  form  as 
SHP  =  (.051) (GH) {DL/DR) -4*  at  a  specified  rate,  VEC- 

Power  to  climb  without  forward  speed  can  be  calculated  as 
power  required  to  hover  OGE  plus  an  increment  for  the 
potential  energy  chance.  As su mine  a  climb  efficiency  of 
1.25  results  in  a  hover  power  adjustment  as: 

ASH?  =  (VRC)  (GW)/ (33000)  (1.25)  =  -00002424  (VRC) (Of) 

If  it  should  be  desirable  to  size  the  engine  or  transmission 
to  meet  a  given  vertical  rate  of  climb  requirement  with  a 
specified  margin  of  power,  then  the  above  may  be  combined  to 
result  in: 


rtP  =  ({.Oil)  iun.  « DL 


-  'SHP|  fi  -  PH/ 100] 


*'here  PM  is  the  des 


power  marcin  :n  percent. 


HMUb  iidiUUiw.ilii'iM^  hUnmIii'  *|i  nutter 


Speed-Power 

The  aircraft  speed-power-weight-drag  relationship  is  a 
function  of  rotor  characteristics,  such  as  airfoil  sections 
used,  taper,  twist,  disc  and  blade  loadings  (and  thus 
solidity) ,  tip  speed  schedule  (and  thus  tip  Mach  number) , 
etc. 

For  this  study,  data  were  generated  for  the  following  char¬ 
acteristics  : 

Airfoil:  NACA  23012  (constant) 

Number  of  Blades :  4 

Solidity,  S  0.1 

Tip  Speed  700  fps  (constant) 

Taper  None 

The  airfoil  selected  is  for  a  current  state-of-the-art  air¬ 
foil  with  good  stall  characteristics.  The  drag-lift 
characteristics  are  well  established  throughout  the  Mach 
number  range.  The  other  listed  characteristics  t,ere  chosen 
as  typical  for  helicopters  currently  in  use  or  in  development. 
The  data  were  obtained  by  a  standard  rotor  performance  program 
involving  an  iterative  numerical  solution  of  the  blade 
flapping  equations  of  motion. 

The  results  are  used  in  the  model  in  a  parametric  form  as 
illustrated  in  Figures  5-8.  Data  are  entered  into  the  program 
in  two  ways  to  allow  determination  of  airspeed  for  a  aiven 
power  and  determination  of  power  at  a  given  airspeed. 

TAS  =  f  (DLN,  POW,  FOW) 

POW  =  f (DLN,  TAS,  FOW) 

These  tables  apply  for  speeds  above  speed  for  minimum  power 
with  accuracy  improving  as  speed  is  increasing.  Accuracy  of 
the  tables  reduces  at  reduced  airspeeds  due  to  the  shallow¬ 
ness  of  the  slope  of  power  vs  airspeed.  For  this  reason, 
separate  data,  as  shown  in  Figure  9,  are  entered  for  speeds 
for  minimum  power  to  accommodate  performance  related  to  this 
speed  such  as  loiter  and  maximum  rate  of  climb.  This  data 
again  are  in  two  forms : 

TAS  =  f (DLN,  FOW) 

MRHP  =  f  ( DLN ,  FOW) 
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ationsnip  for  DLN  =  10 
.  1 . 


Ir  the  above,  the  use  of  a  nominal  speed  of  sound  may,  for 
some  off-design  condition,  introduce  a  small  error.  With  a 
20 °C  change  in  the  temperature,  a  3-1/2-percent  error  in 
resulting  iMach  number  is  introduced.  This,  however,  should 
be  an  acceptable  penalty  for  a  study  such  as  this,  and  thus 
the  data  presented  is  generated  for  C  =  1117  fps  only. 

Variation  of  solidity  does  not  require  separate  charts  but 
can  be  accommodated  similarly  to  Reference  1.  This  reference 
substantiates  the  equivalence  of  a  drag  change  to  inflow 
change  resulting  from  a  solidity  change.  In  this  study  the 
date  was  compiled  for  S  =  .1;  performance  for  any  other  S 
can  be  obtained  by  entering  the  data  with  an  adjusted  equiva¬ 
lent  flat  plate  drag  area: 


~  C*  4 

A actual 


(GW) (BL) (S  -  .1) 

,_2 


The  adjusted  F  is  now  used  to  calculate  FOW  as  before.  POW 
is  determined  from  the  data  at  the  desired  normalized  blade 
loading  BLN.  The  chart  values  in  the  presentation  of  this 
report  must  be  used  as  DLN/S.  For  example,  values  shown  for 
DLN  =6  Ib/ft^  and  S  =  .1  are  reallv  for  a  BLN  =  6/.1  =  60 
lb/ ft* . 


The  tip  speed  in  this  study  was  chosen  as  700  fps  representing 
the  current  state-of-art  average.  The  outcome  of  this  study 
will  not  be  significantly  different  if  run  at  any  other  tip 
speed.  However,  if  it  should  be  desired  to  repeat  the  study 
for  any  other  tap  speed,  new  power  required  must  be  calcula¬ 
ted.  From  this,  either  a  new  data  table  must  be  generated 
or  a  suitable  adjustment  found  for  the  existing  data. 

Geometry  of  the  rotor  blade  naturally  affects  the  power  levels 
and  is  an  inherent  part  of  any  performance  presentation.  The 
characteristics  used  here,  such  as  airfoil  and  twist,  are 
current  technology  and  should  yield  representative  results. 
However,  as  in  the  case  of  tip  speed,  should  it  be  desired  to 
investigate  some  different  geometry,  then  corresponding  power 
data  must  bo  calculated,  from  which  a  new  table  can  be  gener¬ 
ated  or  a  suitable  adjustment  found  for  the  data  now  used. 

The  tables  yield  main  rotor  power.  To  obtain  total  power, 
i.e.,  power  at  the  engine  output,  a  factor  was  determined 
which  includes  the  effects  of  tail  rotor  power,  accessories 
power,  and  drive  system  losses.  The  factor  applies  only  to 
forward  flight  and  is: 

MRHP/Sh’P  =  KPP  =  .9174 


. . . . . fi . . . . . * . . . . . . . .  .  . . . . 


Stall 


The  ultimate  limiting  factor  on  airspeed  is  stall  of  the 
retreating  blade.  For  the  purposes  of  this  study,  the  stall 
boundary  was  determined  consistent  with  the  data  generated 
for  forward  flight.  Thus,  they  contain  the  same  assumptions 
as  the  power  required.  Stall  was  defined  at  the  airspeed  when 
the  angle  of  attack  reached  12  degrees  at  the  outboard  section 
of  the  blade.  The  angle  was  found  to  be  just  below  the  stall 
caused  break  in  power  vs  lift  curves.  The  data  is  shown  in 
Figure  10.  The  data  are  entered  into  the  program  in  the  form  of 
an  equation: 


TAS  =  70  +  15.7(15  -  DLN)/(1000  EOW) 


.2598 


For  operational  use,  helicopter  maximum  airspeeds  are  limited 
tc-  airspeeds  below  stall.  The  margin,  SM,  specified  for  this 
study  is  10  knots. 


Drag  of  aircraft  is  most  conveniently  represented  as  a 
function  of  gross  weight  to  the  two-thirds  power,  a  relation¬ 
ship  which  assumes  that  a  characteristic  dimension  exists 
which,  when  cubed,  gives  a  volume  proportional  to  gross 
weight,  and  when  squared,  gives  an  area  proportional  to  the 
equivalent  flat  plate  drag  area.  Statistics  from  various 
current  and  projected  helicopters  have  led  to  the  trends 
shown  on  Figure  11. 


The  statistical  d~ag  data  is  treated  as  a  function  of  maximum 
gross  weight  of  the  helicopter.  There  is  no  assurance  that 
helicopter  cargo  spaces  are  designed  to  carry  the  max-mum 
structural  weight  limited  payload.  In  fact,  for  many  heli¬ 
copters  the  maximum  gross  weight  has  grown  by  a  third,  without 
a  corresponding  increase  in  cargo  space.  However,  since  the 
cargo-containing  fuselage,  as  a  rule,  makes  up  less  than  a 
quarter  of  the  total  drag,  the  cargo  space  is  not  a  signifi¬ 
cant  factor.  It  was  felt  that  the  total  drag  is  more  related 
to  the  maximum  gross  weight  of  the  aircraft  which  dictates 
rotor  sise  so  that  gross  weight  adequately  represents  the 
aircraft.  In  the  case  of  helicopters  with  considerable  de¬ 
velopment  and  growth  behind  them,  the  latest  gross  weight  was 
used  for  correlation  purposes.  Then,  helicopters  at  their 
maximum  GW  exhibit  higher  disc  leadings  than  originally 
designed  for.  Thus,  the  statistics  reflect  the  tendency  for 
new  aircraft  to  be  designed  for  higher  disc  and  power 
loadings. 
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Figure  10. 


Stall  Boundary  as  a  Function  of 
Disc  Loading,  Airspeed,  and  Draq. 


GROSS  WEIGHT,  L3 

Figure  11.  Drag  Trends  for  Different  Tyoes 
of  Helicopters. 
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Depending  on  the  type  of  helicopter,  the  loading  density 
varies  and  thus  the  volume-gross  weight  relationship. 
Therefore,  different  fairings  were  drawn  for  the  various 
tvoes  of  helicopters. 


These  expressions  cover  only  the  basic  aircraft  without 
external  stores  or  cargo.  These  items  have  a  characteristic 
of  themselves  and  are  treated  as  an  add-on  to  the  basic  drac. 
In  this  study,  it  is  assumed  that  all  fuel  is  carried  in¬ 
ternally,  i - e . ,  no  external  fuel  tanks  are  used.  Furthermore, 
it  is  assumed  that  no  external  stores  are  carried  by  the 
observation-utility- transport  categories  of  aircraft.  The 
weapons  drag  of  the  cunship  is  assumed  at  an  equivalent  flat 
plate  drac  area  of  5  ft^, and  the  cargo  drag  area  for  cranes 
is  assumed  to  be  100  ft^.  if  desired  bv  the  user  of  the 
proaram,  these  add-ons  can  also  be  rubberized  bv  use  of 
suitable  statistics. 


The  above  resulted  in  the  following  relationships  to  be  used 
in  this  studv. 


Utility,  transport 

Observation 

Gunship 

Crane 


.035  GK2/3 
.03 

.02  *  5 

.07  GW^'-5  -r  100 


STATISTICAL  WEIGHTS 

The  statistical  weight  model  used  for  the  estimation  of  con¬ 
ventional  (single  point)  desions  was  developed  to  represent 
the  five  types  of  helicopters  under  consideration  and  to  use 
relatively  limited  data  such  as  would  be  available  during 
a  typical  predesign  situation.  This  model  is  a  furfcner 

development  of  that  given  and  fullv  documented  in  Reference  2. 
The  statistical  trends  were  based  on  analyses  of  the 
following  helicopters: 

CH-3C  HH-2D 

CH-34  HH-52 

CH-37  UH-2A/3 

CH-53A  UH-19 

SH-3A  UK- 13 

S-52  UR- ID 

S-61  UK- IN 


The  eouations  are  listed  in  the  STA' 
not  repeated  here.  There  are  three 


WEIGHT  module  and  are 
yoes  of  data  used  in 


the  parametric  equations ,  as  follows: 


■>o 


Basic  Input  Data  -  These  data  either  define  character¬ 
istics  of  the  vehicle  or  are  a  result  of  performance 
calculations.  Exacmles  are:  Number  of  encines  and  rotor 
radius.  The  required  input  data  are  listed  in  Table  III. 


Intermediate  Data  -  Actual  values  may  be  used  if  known 
from  design  definition.  If  an  actual  value  is  not 
available,  an  intermediate  data  value  can  be  calculated 
using  input  data  and  the  appropriate  equations-  An 


example  is  Tail  Rotor  Radius.  If  not  known  from  design 
definition,  the  tail  rotor  radius  (in  feet)  is  estimated , 
using  input  data  only,  by  .037  (rotor  radius) 


Calculated  Weight  Data  -  The  weight  calculated  by  a 
weight  equation  is  used  in  a  subsequent  weiaht  equation - 
An  example  is  Blade  Weiaht,  which  is  subseauentlv  used 
to  calculate  Hub  Height. 


ANALYTICAL  WEIGHTS 


The  statistical  weight  model  is  appropriate  for  the  single¬ 
point  baseline  vehicle.  The  modifications  resulting  from  the 
additional  design  point  will  result  in  changes  in  the  struc¬ 
ture,  drive  system,  and  rotor.  These  changes  are  due  to  the 
changes  in  gross  weight  and  engine  and  rotor  torque.  The 
other  major  elements  (engine,  fuel  system,  and  fixed  weights) 
of  the  vehicle  are  assumed  to  change  only  insignificantly 
since  the  basic  mission  is  unchanged- 

structure 


The  various  elements  of  the  structure  of  a  typical  helicooter 
were  examined  from  th'-  point  of  view  of  whether  the  weiaht  of 
the  element  was  significant  and  what  kinds  of  loads  were  the 
major  design  consideration.  It  is  assumed  that  limit  load 
factors,  sink  speed,  and  crash  criteria  are  not  changed  with 
the  changes  in  gross  weight  due  to  the  second  design  point 
criteria. 

The  elements  of  the  structure  considered  include  the  forward 
fuselage,  center  fuselage,  tail  cone,  vertical  tail  (tall 
rotor  pylon),  horizontal  tail ,  landing  gear,  engine  and 
transmission  mounts  and  carry  through  structure.  In  general, 
the  items  which  contribute  significant  weight  can  be  lumoed 
together  as  the  fuselage  and  tail  and  the  landing  gear.  Some 
of  the  components  are  designed  by  steady  flight  loads,  some 
by  vibratory  loads ,  some  by  landing  loads ,  seme  by  carco 
loads,  etc.  The  steady  loads  can  be  expected  to  be  propor¬ 
tional  to  the  gross  weight.  Landing  loads  also  are 
proportional  to  gross  weight.  The  vibratory  loads  are  the 
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TABLE  III. 

INPUT  DATA  FOR  PARAMETRIC  WEIGHT  ANALYSIS 

Symbol 

Data 

AG  =  Number  of  Auxiliary  Landing  Gears 

BF  =  Blade  Folding  Option  (=  1  if  used,  =  0  otherwise) 

BRK  =  Main  Rotor  Brake  Option  (=  1  if  used,  =  0  otherwise) 

CAP  =  Gallons  of  Fuel  -  Gal. 

CB  =  Blade  Chord  -  Eeet 

EDS  -  Engine  Drive  Shaft  Option  (=  1  if  used,  =  0 
otherwise) 

EN  =  Number  of  Engines 

HP1  =  Rotor  Horsepower  -  hp 

HP2  =  Installed  Horsepower  -  hp 

ITR  -  Intermediate  Tail  Rotor  Gearbox  Option  (=  1  if  used, 
=  0  otherwise) 

KLG  =  Landing  Gear  Geometry  -  Values/Configuration 

.0157  -  Skid  Gear 

.0247  -  Sponson  Mounted 

.0280  -  Quadricycle 

.0329  -  Tricycle  -  Fuselage  Mounted 

.0405  -  Crane  -  Straddle  Type 

KNAC  =  Nacelle  Arrangement  -  Values/Configuration 

.96  -  Twin  Encrines  Mounted  to  Transmission  Forward 

or  Aft  of  Ma^n  Rotor 

1.19  -  Single  Engine  Mounted  to  Fuselage  Forward 
or  Aft  of  Main  Rotor 

1.23  -  Twin  Engines  With  Combining  Gearbox 
2.26  -  Twin  Engines  Outboard  of  Main  Fuselage 


MOW  = 


Add  Factors  for  More  Than  Two  Engines 
Maximum  Operating  Weight  -  Lb 


NMR 


Number  of  Main  Rotor  Blades 


TABLE  III  -  Continued 


Symbol 

Data 

NR 

- 

Number  of  Main  Rotors 

NULT 

= 

Ultimate  Load  Factor 

P 

= 

Number  of  Passengers 

i 

KM 

= 

Main 

Rotor  Radius  -  Feet 

S 

= 

Main 

Rotor  Solidity 

TAP 

= 

Type 

of  Aft  Fuselage  -  Values/Configuration 

8  - 

Full  Fuselage  Depth  at  Splice  of  Main  Fuselage 
to  Aft  Fuselaae.  Example:  SH3A 

9  - 

Tailboom  Configured  for  Rear  Ramp.  Example: 

CH53 

10  - 

Tailboom  Without  Rear  RamD.  Example:  UH19 

13  - 

Full  Fuselage  Depth  at  Splice  of  Main  Fuselaae 
to  Aft  Fuselage  and  With  a  Tail  Wheel  Full  Aft. 
Example:  HH2D 

15  - 

Tailcone  Upswept  From  Fuselaae  Splice. 

Example:  UH1D 

SW 

= 

Total  Wing  Area 

TAG 

= 

Type 

of  Auxiliary  Gear  -  Values/Conf iauration 

0 

-  Observation 

0 

-  Gunship 

1.0 

-  Utility 

2.5 

-  Transport 

15.5 

-  Crane 

TAR 

= 

Armament  Provision  and  Plating  - 
Values/Configuration 

600 

-  Gunship  (0  otherwise) 

TEL 

— 

Type 

of  Electronics  -  Values/Confiauration 

(Depends  on  A/C  Designation) 

.42 

-  Observation 

.  75 

-  Crane 

1.00 

-  Utility 

1.16 

-  Transport 

1.25 

-  Gunship 

TABLE  III  -  Continued 


Symbol _ Data 


TPU  =  Auxiliary  Power  Unit  Option  (-  1  if  used,  0 
otherwise) 

TPY  =  Type  of  Pylon  Configuration  -  Values/Confiquration 
(Depends  on  Type  of  Aft  Fuselace) 

14  -  Tailcone  Upswept  From  Fuselage  Splice. 

Example:  UH1D 

25  -  Tailboom  Without  Rear  Ramp.  Example:  UH19 
45  -  Tailboom  Configured  for  Rear  Ramp.  Example: 

CHS  3 

48  -  Full  Fuselage  Depth  at  Splice  of  Main  Fuselage 
to  Aft  Fuseiage.  Example:  SH3A 
62  -  Full  Fuselage  Depth  at  Splice  of  Main  Fuselage 
to  Aft  Fuselage  and  With  a  Tail  Wheel  Fuil  Aft. 
Example:  HH2D 

VM 


WPL 


Main  Rotor  Tip  Speed  -  FPS 
Des ired  Weight  of  Payload 


most  difficult  to  generalize  upon.  The  transition  flight 
regime  is  when  the  highest  vibratory  loads  can  be  usually 
expected.  Experience  indicates  that  the  vibratory  loads  are 
proportional  to  GW,  increasing  by  about  4  to  8  times  the  ratio 
of  delta  GW  to  GW. 

Simple  models  of  typical  structures  have  indicated  that  the 
weight  of  the  structure  will  be  approximately  proportional  to 
ratios  of  the  design  loads.  This  is,  of  course,  most  true 
when  relatively  small  changes  are  considered. 

The  types  of  loads  which  design  the  separate  components  will 
vary  between  types  of  helicopters  and  even  between  different 
helicopters  of  the  same  type.  Some  elements  are  not  strictly 
designed  by  loads,  for  example,  by  the  use  of  minimum  gage 
skins  and  landing  gear  mechanisms. 

Because  of  the  great  uncertainty  in  generalizing  the  struc¬ 
tural  weight  changes  a  simple  but  reasonable  approximation  is 
made  in  the  model  used  in  this  study.  It  is  assumed  that  the 
change  in  weight  of  the  fuselage,  tail,  and  landing  gear  of 
the  second  design  point  vehicle  is  directly  proportional  to 
the  change  in  gross  weight  from  the  first  point  design. 
Typically,  the  structure  involved  here  represents  about  10 
percent  of  the  gross  weight,  and  a  50-percent  increase  in 
gross  weight  will  result  in  a  structural  weight  increase  of 
about  5  percent  of  the  gross  weight. 

The  computer  program  allows  easy  modification  of  this 
approximation  when  it  is  considered  necessary  and  when 
specific  aircraft  are  being  studied. 

Drive  System 

The  methods  developed  in  Reference  2  were  used  to  determine 
the  rate- of- weight  change  with  torque  for  the  main  trans¬ 
mission.  The  analysis  includes  the  optimized  weights  of 
shafts,  bearings,  case,  and  all  gears.  For  this  study,  the 
following  gross  weight  helicopters  were  studied:  3000,  15,000, 
25,000,  100,000,  200,000.  These  are  consi'ered  typical  of 
observation,  utility,  qunship,  cargo,  and  crane  helicopters. 

Figure  12  illustrates  the  results  of  the  analysis.  While 
the  data  has  been  specifically  obtained  for  the  main  trans¬ 
mission,  the  percentage  change  is  assumed  to  apply  to  the 
entire  drive  system. 
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Rotor 


The  relationship  between  rotor  torque  and  weight-change-with 
torque  is  determined.  To  facilitate  this,  it  was  decided  to 
limit  the  study  to  the  components  which  are  more  directly 
related  to  the  imposed  loads.  These  consist  of  the  blades 
and  the  hub.  The  retentions,  controls,  bearings,  etc.,  can 
be  idealized  structurally;  however,  because  these  items  have 
so  many  mechanical  configurations,  the  calculated  component 
weights  would  vary  directly  from  actual  cases.  It  is  assumed 
that  the  weights  of  these  items  vary  identically  as  the 
analytically  determined  blades  and  hub. 

The  approach  used  nere  is  as  follows. 

1.  Assemble  data  providing  design  parameters  {disc 
loading,  tip  speed,  etc.)  for  various  gross 
weight  helicopters.  Fit  equations  to  these  data. 

2.  Choose  materials  and  appropriate  working  properties. 

3.  Define  configuration  to  be  modeled.  Write  equations 
defining  structure. 

4.  Define  load  conditions. 

5.  Determine  minimum  weight  configuration  for  each 
point  chosen  for  analysis. 

6.  For  each  point,  increase  and  decrease  gross  weight 
by  five  percent  and  determine  optimum  weights  for 
each  new  point. 

7.  Analyze  the  hub  in  a  similar  manner. 

Design  Equations  -  The  design  equations  were  derived 

from  the  data  of  Table  IV  which  is  considered  to  be 

typical  of  the  five  types  of  helicopters. 
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TABLE  IV.  TYPICAL  PARAMETERS 


Category 

Observ 

Utility 

Gunship  Transport 

Crane 

Wominal  G.W. 

3000 

15,000 

15,000 

70,000 

150,000 

Rotor 

Disc  Loading 

4 

8 

9 

9 

9 

Tip  Speed 

650 

700 

700 

700 

750 

Solidity 

.05 

.1 

.1 

.1125 

.1 

Blade  Loading 

80 

80 

90 

80 

90 

Number  of  Blades 

4 

4 

4 

5 

6 

Asoect  Ratio 

25.4 

12.7 

12.7 

14.14 

19.1 

From  the  foregoing  data,  the  following  equations  are  derived 
for  rotor  blades. 


R  =  . 564  (GW/DL) * 

CB  =  R/AR 

DL  =  9.27515  -  15680.1/GW 
QMR  =  . 58296 (GW)3/2/(DL) 1/2 

U  =  11948 (DL/GW) ' 5 


Materials  -  Blade  section  materials  were  chosen  as 
given  in  Table  V. 

Configuration  -  A  typical  configuration  was  selected 
as  follows: 

(a)  Symmetrical  Airfoil  00  Series 

(b)  Mass  Balanced  Blade  at  1/4  Chord 

Cc)  Inboard  Extension  of  Mass  Balance  to  be  a  Variable 

(d)  Thickness  Ratio  =  .12 

(e)  Trailing  Edge  Cap  Length  =  .05  CB 

(f)  Spar  Wall  =  .08  x  .12  CB  =  .0096  CB 

(g)  Spar  Width  "x"  is  Variable 
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TABLE  V.  BLADE  MATERIALS 


Element 

Material 

Lfc-In. 3 
Density 

Design 

Static 

Strength 

Design 

Fatigue 

Strength 

Comments 

Spar 

2014  A1 

•m 

68,000 

6000 

Structural 

Member 

•lass  Balance 

Lead 

.  4 ' 

- 

- 

- 

Spline  Cap 

A1 

.ICi 

- 

- 

- 

TE  Cap 

A1 

.101 

- 

— 

- 

Spline 

Honeycomb 

.0018 

- 

— 

— 

Bond 

Glue 

.0745 

(Lb-Ft2) 

The  unit  weights  of  the  separate  elements  are  found  to 
be  of  the  following  form:  (Weights  in  lb/in.  of  length, 
where  CB  is  blade  chord  and  X  is  spar  width) 

Spar:  Wx  =  .00097  CB  (2X  +  .17  CB) 

Core:  W2  =  .000108  (CB  (CB-X)  -  . 0025 (CB3/  (CB-X) ) 

Core  Cap:  W3  =  .000024  CB(.0036  CB2  +  (CB-X)2) 

Core  Glue:  W4  =  .00103  (.0036  CB2  +  (CB-X)2) 

Trailing  Edge  Cap:  W5  =  .0000152  CB3/(CB-X) 

Mass  Balance:  Wg  =  .0453(CB)  x  -  .000435  CB2 

The  area  of  the  spar: 

A  =  .0192  CB (X  +  .085  CB) 


Load  Conditions  -  The  following  load  conditions  were 
considered:  Centrifugal  loading,  edgewise  moment 
(starting  torque  with  limit  torque  factor  of  2)  ,  and  droop 
bending  moment  (limit  factor  of  2.67).  Because  no 
general  fatigue  criteria  due  to  flatwise  bending  could 
be  developed,  this  condition  was  excluded. 
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Minimum  Weight  Configuration 

The  minimum  weight  blades  meetinq  the  strenqth  requirements 
was  obtained.  This  data  is  given  in  Table  VI. 


TABLE 

VI.  WEIGHT 

ANALYSIS  -  BLADES 

AND  HUB 

i  _ -  1  i 

Total  Slade 

Hub  &  Blade 

G.W. 

Weiaht 

Hub  Weiqht 

Weiqht 

(lb) 

(lb) 

(lb) 

(lb) 

3,150 

147.56 

15.00 

162.56 

3,000 

130.33 

14.31 

144-64 

2 ,  b50 

120.67 

13.73 

134.40 

15 , 750 

870.96 

70.16 

941.12 

15,000 

796.51 

65.16 

861.67 

14,250 

724.16 

61.24 

785.40 

26,250 

1930.56 

138.80 

2069.36 

25,000 

1811.43 

130.62 

1942.05 

23,750 

1690.25 

122.51 

1812.76 

73,500 

8397.15 

636.22 

9033.38 

70,000 

7945.01 

600.14 

8545.15 

66,500 

7498.49 

563.84 

8062.33 

157,500 

22948.80 

1970.38 

24919.20 

150,000 

21967.50 

1849.78 

23817.30 

142,500 

21050.20 

1739.41 

22789.60 

i - -  —  .  -  —  - -  .  ...  .  _  in 

Vary  Gross  Weight  -  The  gross  weight  was  varied  by  +5 
percent,  and  the  blade  weights  were  obtained  as  above 
and  are  also  given  in  Table  VI. 

Analyze  Hub  -  A  similar  analysis  was  performed  for  the 
hub.  The  results  are  given  in  Table  VI. 

The  resulting  data  is  given  on  Figure  13. 
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EFFECTIVENESS 


It  is  the  basic  premise  of  the  study  that  helicopters  de¬ 
signed  structurally  for  operation  at  off-design  conditions 
will  be  heavier  and  costlier  than  those  whose  structure  is 
designed  at  the  same  point  at  its  powerplant.  However,  it  is 
believed  that  when  the  entire  operating  spectrum  of  a  heli¬ 
copter  is  examined,  it  will  be  found  that  the  extra  capacity 
of  the  overdesigned  helicopter  will  more  than  compensate  for 
its  additional  size,  weight,  and  cost-  Thus,  each  of  the 
helicopter  types  analyzed  -  utility,  cargo,  crane,  observa¬ 
tion,  and  gunship  -  is  analyzed  for  its  overall  effectiveness 
in  performing  its  intended  functions  at  both  design  and  off- 
design  conditions. 

Mission  Parameters 


As  in  other  parts  of  the  model,  the  primary  emphasis  of  sub¬ 
models  used  to  calculate  mission  effectiveness  is  on  deter¬ 
mining  the  differences  in  effectiveness  between  a  helicopter 
designed  with  a  single,  arbitrary  design  point  and  a  heli¬ 
copter  designed  with  an  additional,  more  structurally 
demanding  design  point.  Hence,  the  mission  effectiveness 
measures  are  those  which  concentrate  on  evaluating  these 
differences,  once  a  suitable  base  is  established.  The  base 
or  reference  level  mission  effectiveness  for  each  type  of 
helicopter  is  established  by  its  design  point  requirements. 
These  requirements  are  the  performance  parameters  and 
associated  data  derived  from  mission  analyses.  The  mission 
analyses  translate  operational  requirements  (numbers  of  troops 
to  be  airlifted,  distance  from  troop  bases  to  the  forward  edge 
of  the  battle  area  (FEBA) ,  weapons  compliments,  supply  levels 
and  resupply  rates,  etc.)  into  design  requirements  for  the 
helicopters  (payload,  range,  speed,  OGE  hover  requirements, 
etc.).  And  these  design  requirements  are  specified  such  that 
under  the  most  severe,  or  nearly  most  severe,  conditions, 
the  helicopter  will  be  able  to  perform  its  required  mission. 

In  the  case  of  a  transport  helicopter  for  example,  the 
payload  may  be  specified  as  so  many  troops  and/or  equipment 
and  cargo,  the  range  as  that  necessary  to  move  the  payload 
from  staging  areas  to  the  FE3A,  the  speed  as  that  required 
to  achieve  the  required  reaction  tins  cr  resupply  rate,  and 
so  forth.  To  permit  sizing  of  the  powerplant,  it  is 
necessary  to  specify  a  stringent  combination  of  hover 
altitude,  temperature,  climb  rate,  and  power  margins  that 
the  aircraft  must  be  abis  to  perform  with  its  design  payload. 
For  either  a  single-point  design  helicopter,  or  a  helicopter 
with  two  design  points,  this  requirement  would  be  the  same. 
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Similarly,  for  either  a  single-  or  two-point  design  helicopter, 
the  required  cruise  speed  would  be  the  same.  When  the  trans¬ 
port  helicopter  is  operating  at  off-design  conditions,  its 
cruise  speed  could  be  modified,  or  its  range,  or  any  other 
pertinent  parameter  within  its  capabilities.  In  general, 
however,  it  is  more  appropriate  to  fix  these  values  at  their 
required  levels  and  to  examine  the  change  in  the  helicopter’s 
"essential"  operational  parameters.  In  the  case  of  a  trans¬ 
port  helicopter  this  would  be  payload.  Thus,  the  appropriate 
measure  of  mission  effectiveness  to  be  analysed  in  this  study 
for  the  transport  helicopter  would  be  its  payload. 

For  the  purposes  of  comparing  helicopters  with  two  design 
points  to  those  with  a  single-point  design,  payload  is  an 
excellent  mission  measure  of  effectiveness  (MOE)  for  all  of 
the  helicopter  types  to  be  analyzed  by  the  model  except  for 
the  observation  helicopter.  Both  utility  and  crane  heli¬ 
copters  have  payload  as  their  primary  variable  requirement, 
with  range,  speed,  etc.,  set  by  operational  requirements  that 
must  be  met  (but  not  necessarily  exceeded)  under  any  payload 
conditions. 

For  the  armed  helicopter,  performance  at  high  speeds  is  a 
primary  design  requirement,  along  with  weapons  load.  But 
again,  payload  has  been  selected  as  the  variable  design 
parameter  for  the  mission  HOE;  the  assumption  has  been  made 
that  the  design  value  of  speed  (and  the  associated  maneuver 
load  criteria)  was  selected  after  trading  off  payload  versus 
rapidly  increasing  component  weights,  particularly  the  rotor, 
at  higher  speeds.  At  these  conditions,  there  is  much  more 
leverage  in  increasing  payload  than  there  is  in  increasing 
speed,  because  of  the  design  limitations  of  the  helicopter. 

In  addition,  only  a  small  portion  of  the  helicopters’ 
flight  time  will  be  spent  at  the  maximum  conditions,  thus 
arguing  that  increasing  capability  (payload)  at  lower  speeds 
is  the  preferred  way  to  increase  overall  mission  effective¬ 
ness. 

For  the  observation  helicopter,  the  primary  performance 
parameter  is  time-on-station  or  time  on  patrol  which  can  be 
expressed  s irmly  as  endurance  at  stated  conditions  (best 
speed  for  range,  best  speed  for  endurance,  etc.).  Since 
payload  is  relatively  fixed  (observer,  tracking  equipment, 
etc.),  and  other  performance  parameters  like  speed  are  not 
dominating  requirements ,  endurance  at  a  nominal  oafcrol  speed 
has  been  selected  as  the  appropriate  mission  MDE  for  the 
observation  helicopter. 
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Operational  Parameters 


Operational  parameters  are  those  parameters  which  define  the 
total  environment,  both  natural  and  man-made,  within  which 
the  helicopter  will  operate.  These  parameters  are  included 
in  the  analyses  defining  the  helicopter  design  requirements 
and  can  significantly  influence  intended  operation  of  the 

helicopter  if  they  are  different  from  those  designed  for. 

In  this  study,  the  only  environmental  parameter  which  must 
be  included  in  the  two-point  design  analysis  is  the  altitude- 
temperature  profile  that  the  helicopter  must  operate  in. 
However,  this  combined  parameter  is  extremely  important  since 
it  determines  the  off-design  capability  of  the  power  system 
of  a  helicopter,  and  hence,  its  overall  mission  effectiveness 
parameter  (payload  or  endurance) . 

A  helicopter  designed  to  hover  with  a  specific  Dayload  at  a 
specific  altitude  and  temperature  has  a  specific  design 
horsepower  powerplant  requirement.  At  different  altitudes 
and  temperatures,  its  powerplant  will  deliver  different  power, 
and,  hence,  its  payload  (or  fuel  load)  capacity  will  also 
vary.  Thus  it  will  achieve  different  levels  of  mission 
effectiveness  (payload  or  endurance)  depending  on  the  con¬ 
ditions  under  which  it  must  hover  during  the  course  of  a 
mission.  The  most  concise  and  unambiguous  method  to  analyze 
this  problem  is  presented  in  Reference  3,  and  is  the  method 
used  in  this  study.  In  this  method,  a  joint  temperature  - 
altitude  probability  distribution  for  a  given  geoaraohic  area 
is  prepared  first.  An  example  of  such  a  distribution  is 
shown  in  Figure  14.  The  data  for  both  altitude  and  tempera¬ 
ture  for  this  study  were  taken  from  the  above  reference,  and 
an  explanation  of  how  the  data  are  obtained  and  processed  is 
given  there. 

The  data  shown  in  Figure  14  are  used  to  calculate  the  overall 
probability  that  a  given  helicopter  carrying  a  given  payload 
and  fuel  load  can  hover  in  the  specified  environment.  This 
is  done  by  determining  the  maximum  temperature  that  the  air¬ 
craft  cam  hover  at  for  a  given  gross  weight  at  a  given 
altitude.  This  point  is  plotted  on  the  graph,  and  after 
several  more  points  are  calculated,  a  line,  such  as  that 
labeled  "GW",  can  be  drawn .  The  process  can  be  repeated 
for  any  other  gross  weight  as  well  (GWj,  GW 3) .  This  line 
represents  the  combination  of  altitudes  and  temperatures 
above  which  (higher  altitudes  and/or  higher  temperatures ) 
the  helicopter  cannot  hover,  and  hei.ee ,  cannot  perform  its 
mission.  The  proportion  of  area  of  the  chart  below  this 
line,  compared  to  the  total  area  of  the  chart,  is  then 
numerically  equal  to  the  probability  that  the  helicopter  can 
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CUMULATIVE  PRO BASIL 
Figure  14.  Typica 


perform  its  mission  in  the  given  environment  at  the  specified 
gross  weight. 


The  process  described  above  derives  the  probabilitv  of  hover, 
or  the  probability  that  the  helicopter  can  perform  its 
mission  under  given  conditions.  To  measure  overall  effec¬ 
tiveness,  several  different  combinations  of  pavload  and 
environment  must  be  considered.  The  method  of  handling 
several  different  payload  levels  is  discussed  in  the  next 
section.  The  method  used  in  the  model  to  account  for 
operations  in  several  different  environments  is  discussed 
below. 

To  simplify  the  computation  of  overall  hover  probability  in 
the  areas  of  the  world  of  prime  interest  to  the  Army, 
the  characteristics  of  19  countries  contiguous  to  the 
Sino- Soviet  block  were  combined.  These  are  the  same  areas 
usea  in  the  analysis  referenced  above,  and  are  listed  in 
Table  VII.  The  altitude  and  temperature  profiles  of  the 
countries  ware  combined  to  form  an  overall  "world"  altitude- 
temperature  profile. 


For  combining  altitude  data,  the  probability  of  being  at 
or  belsw  a  given  altitude  is  equivalent  to  the  percentage 
of  lana  at  or  below  that  given  altitude  if  it  is  equally 
likely  that  one  could  or  would  be  placed  anywhere  in  the 
total  land  area.  Thus, 


where : 

f .  is  the  frequency  of  occurrence  or  cumulative 
^  probability  of  being  placed  at  the  j-th  altitude 
within  the  combined  area  of  the  k  countries. 

P..  is  the  frequency  of  occurrence  or  cumulative 

probability  of  beinq  placed  at  the  j-th  altitude 
within  the  k-th  country. 

A^  is  the  area  of  the  k-th  country. 


TABLE  VII.  AREAS  USED  IN  HOVER  PROBABILITY  CALCULATIONS 


1.  West  Germany 

2 .  France 

3.  Italy 

4 .  Spain 

5.  Turkey 

6.  Syria  -  Lebanon 

7.  Saudi-Arabia 

8.  Iraq 

9 .  Iran 

10.  Afghanistan 

11.  West  Pakistan  (Pakistan) 

12.  India 

13.  East  Pakistan  (Bangledesh) 

14.  Burma 

15.  Thailand 

16.  Laos 

17.  Cambodia 

18.  Viet  Nam  (North  and  South) 

19.  South  Korea 


For  temperature,  it  is  necessary  to  combine  the  temperature/ 
probability  data  in  such  a  way  as  to  preserve  the  relation¬ 
ship  between  temperature  and  altitude.  Hence,  temperature 
should  be  derived  on  a  weighted  basis  for  each  altitude 
investigated.  Treatino  the  probability  of  a  temperature 
occurring  as  its  frequency  of  occurrence: 

^  P  A 

f  =  p  =  *  -ijQl 

ij  cum  ij  cum  I  a 

k  Ajk 

whe  re : 

f. .  is  the  cumulative  frequency  of  occurrence  of 

-*  temperature  T^  at  altitude  hj  within  the  combined 
areas  of  the  k  countries. 

P.  ..  is  the  probability  of  T^  occurrincr  at  h-  in  each 
of  the  k  countries.  J 

A.,  is  the  area  of  each  country  at  the  altitude  h • . 

JK  J 
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For  altitude,  the  simple  calculation  can  be  performed  by 
multiplying  the  percentage  of  total  area  represented  by  a 
country  and  the  cumulative  percentage  of  area  in  that 
country  at  or  belov  a  given  altitude  to  obtain  the  fraction 
of  the  total  area  of  all  of  the  countries  at  or  below  a 
given  altitude  represented  by  that  country.  For  a  given 
altitude,  when  this  is  done  for  each  country  and  the  results 
added,  the  total  represents  the  cumulative  percentaae  of 
the  total  area  at  or  below  the  given  altitude.  Thus: 

Pcum  j  ”  £  Pcum  jk  x  ^*k^A^ 

For  combining  temperature  data,  the  process  is  more  com¬ 
plicated.  Here,  it  is  necessary  to  weight  a  given 
temperature  value  by  both  its  frequency  of  occurrence  in 
a  given  country  at  a  given  altitude  and  by  the  percentage 
of  area  of  a  given  country  at  that  altitude.  Cumulative 
frequencies  of  temperature  for  a  given  temperature  level, 
multiplied  by  the  fraction  (not  cumulative)  of  area  repre¬ 
sented  at  a  given  altitude  yields  the  cumulative  frequency 
of  occurrence  of  the  temperature  at  the  altitude  of  interest. 
Thus : 

Pi(cum)j  "  £  Pi(cum)jk  x  ^Ajk^Aj^ 

Since  the  altitude/fraction  data  is  given  on  a  cumulative 
basis  for  each  country,  a  method  to  derive  a  frequency  dis¬ 
tribution  histoaram  must  be  devised  so  that  area  fractions 
can  be  assigned  to  each  altitude  for  each  country.  If  a 
very  larcre  number  of  altitudes  were  being  investigated,  the 
histogram  would  closely  approach  the  actual  frequency  dis¬ 
tribution.  However,  only  a  limited  number  of  altitudes  were 
calculated  in  the  current  calculation.  Applvina  the  histo¬ 
gram  approach  to  the  entire  altitude  distribution  curve 
might  result  in  a  rather  gross  histogram  where  much  area 
would  be  represented  by  a  single  altitude.  However,  since 
the  accuracy  of  the  source  cumulative  frequency  distributions 
for  temperature  (and  altitude  to  some  extent)  is  somewhat 
questionable  (as  indicated  by  the  methods  used  to  derive  these 
data  in  Reference  4),  extreme  care  with  development  of  a 
histoaram  is  probably  not  warranted  considering  the  overall 
temperature  accuracy. 

To  derive  a  consistent  weighting  function  for  the  temperature 
data  at  each  altitude,  a  sampling  approach  was  used.  Here, 
a  narrow  band  of  altitudes  was  selected  around  each  altitude 
for  which  weiqhting  data  were  required.  This  number  was  used 
as  the  weighting  factor.  The  size  of  this  number  depends  on 
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two  things:  (a)  the  size  of  the  country;  and  (b)  the  slope 
of  the  altitude  distribution  curve  in  the  band  selected. 
Obviously,  the  size  of  the  country  should  have  an  effect  on 
the  weighting  of  the  temperature.  The  local  slope  indicates 
how  rapidly  area  is  being  added  to  the  cumulative  distribution 
and  thus  reflects  the  percentage  of  area  considered  as 
representative  at  a  given  altitude. 

After  performing  the  necessarv  computations,  the  cumulative 
joint  probability  distribution  for  altitude  and  temperature 
was  obtained.  These  data  are  shown  in  Figure  15  and  were 
prepared  in  tabular  form  for  use  in  the  computer  model. 

Utilization  Parameters 


The  previous  sections  discussed  the  choice  of  pavload  or 
endurance  as  mission  effectiveness  parameters,  and  how 
environmental  conditions  of  hover  altitude  and  temperature 
affect  the  helicopter's  ability  to  perform  its  mission. 

The  latter  factor  is  dependent  upon  the  amount  of  pavload 
or  endurance  required,  which  in  turn,  depends  on  how  the 
helicopter  is  utilized.  Thus,  a  third  factor  to  be  con¬ 
sidered  in  determining  the  effectiveness  of  a  helicopter  is 
the  relative  frequency  with  which  it  will  operate  with  a 
given  payload  or  endurance  (fuel  load)  over  its  operational 
lifetime. 

An  example  of  utilization  data  is  shown  in  Fiqure  16,  which 
was  prepared  using  data  from  Reference  5.  These  data  illus¬ 
trate  typical  utilization  patterns  for  utility  transport  obser¬ 
vation,  crane,  and  gunship  helicopters.  Unfortunately,  many 
assumptions  would  have  to  be  made  to  derive  a  relationship 
between  the  gross  weight  distributions  shown  in  Fiaure  16 
and  the  corresponding  payload/fuel  load  distribution.  Since 
this  analysis  was  beyond  the  scope  of  the  current  studv,  this 
effort  was  not  conducted.  However,  it  was  recoanized  that 
this  could  be  an  important  factor  in  derermininq  overall 
effectiveness  and  in  optimizinq  selection  of  a  second  aesion 
point.  Hence,  provision  was  made  in  the  effectiveness  model, 
and  the  computer  program,  for  ir.cludina  this  factor  in  the 
effectiveness  calculation. 

Effectiveness  Fguations 

The  basic  equation  used  to  calculate  the  effectiveness  of 
a  helicopter  is: 


ME I  =  (PL) (pHOV) (PUF) 
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:VE  FREQUENCY 


IllIlilH 


The  use  of  this  effectiveness  index  is  illustrated  below. 


It  is  desired  to  determine  the  optimum  two-point  design  of  a 
transport  helicopter  with  a  given  design  payload  requirement 
at  a  hover  condition  of  4000  ft,  95°F,  500  ft/min  rate  of 
climb.  The  ship  must  have  a  range  of  300  NM,  a  cruise  speed 
of  160  knots,  etc.  Using  the  techniques  described  in  pre¬ 
vious  sections,  two  helicopters  are  "designed":  a  helicopter 
with  a  single-point  design  (4000  ft/95°F)  and  a  helicopter 
with  two  design  points  (4000  ft/95°F,  2000  ft/75°F) .  These 
helicopters  have  different  gross  weights  and  empty  weights, 
but  a  common  design  payload - 

To  compare  their  respective  effectiveness  levels,  representa¬ 
tive  payloads  spanning  their  range  of  capabilities  will  be 
used,  from  0  payload  up  to  a  payload  that  overloads  the 
helicopter,  say  10  percent  over  design  payload.  Using  these 
payloads,  a  utilization  frequency  is  obtained  for  each  level. 
These  are  the  same  for  either  helicopter,  since  the  payload 
increments  match.  However,  the  gross  weight  level  associated 
with  each  payload  level  is  different,  depending  on  which 
helicopter  is  examined.  This  results  in  a  different  prob¬ 
ability  of  hover,  which  ir:  turn,  affects  the  effectiveness 
index.  After  the  effectiveness  index  is  calculated  for  each 
payload  increment,  the  sum  yields  the  overall  effectiveness 
index  for  each  helicopter. 

A  sample  calculation  illustrating  this  technique  is  shown 
in  Table  VIII.  Included  in  the  table  is  a  cost  factor 
covering  life  cycle  costs  for  each  helicopter.  A  detailed 
explanation  of  how  these  costs  are  calculated  is  given  in 
the  next  section.  If  costs  are  included,  a  cost  effective¬ 
ness  index  can  be  calculated  rather  than  just  a  simple 
effectiveness  index.  Thus 


OCE  =  3 


(PL) (PHOV) (PUF) 
CPFH 


wnere : 

CPFH  is  the  total  cost  per  flight  hour  for  the  helicopter. 

After  examining  the  case  for  the  two-point  design  helicopter 
described  above,  another  calculation  can  be  performed  for 
another  one  (say  4000  ft/95°F,  3000  f t/75°F) .  Several  of 
these  calculations  then  lead  to  a  series  of  optimization 
curves,  from  which  the  optimum  second  design  point  for  the 
helicopter  with  the  given  mission  requirements  can  be 
determined . 
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TABLE  VIII.  SAMPLE  COST  EFFECTIVENESS  CALCULATION 


COST  MODEL 


The  cost  model  is  a  statistical  approach  to  aircraft  cost 
estimating.  The  cost  estimating  relationships  utilize 
empirically  derived  cost  functions.  The  costs  have  been 
functionally  related  to  basic  aircraft  parameters  such  as 
empty  weight  of  airframe  and  installed  power  of  engine.  The 
model  is  sufficiently  detailed  to  distinguish  c^st  dif¬ 
ferentials  between  two-point  design  and  single-point  design 
helicopters.  This  approach  allows  cost  estiraates  to  be  made 
based  on  primary  aircraft  parameters  before  a  detailed  design 
is  actually  completed.  The  cost  model  is  broadly  divided 
into  initial  and  operating  costs  as  illustrated  in  Figure  17. 

Initial  Costs 

Initial  Production  costs  are  based  on  a  rodel  evolved  by 
E.  H.  Yates  (References  6  and  7) .  The  production  costs  are 
subdivided  into  airframe,  engines,  and  government- furnished 
aircraft  eauipment  (GFAE) . 

Airframe  direct  labor  costs  were  derivad  from  direct  labor 
man-hour  data  contained  in  Aeronauticc.l  Manufacturers  Planning 
Reports  (AMPR) .  The  costs  were  estimated  on  a  per-pound 
basis  at  production  number  1000.  The  averaae  labor  learning 
curve  as  a  function  of  production  number,  NP,  is: 

C  =  43.12 (NP)"*39 

The  airframe  labor  cost,  in  dollars,  is  given  in  terms  of 
AMPR  weight*,  HA,  in  pounds; 

Labor  Cost  ~  3  7.63  WA'83 

Thus,  when  combined  with  the  learning  carve,  the  airframe 
labor  cost  is 

CI,  =  760.2  WA*85  (NP)'*  39 

where  CL  is  in  dollars  ar.d  WA  is  expressed  in  pounds. 


*  AMPR  weight  is  Aeronautical  Manufacturers'  Planning  Report 
weight  which  is  empty  weight  of  aircraft  less  (1)  wheels 
and  brakes,  (2)  engines,  (3)  starter,  (4)  cooling  fluids, 
(5)  instruments,  etc. 
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The  cost  for  airframe  materials  for  subsonic  aircraft  was 
found  to  be  a  function  of  airspeed  as  well  as  weight  and 
number  produced.  The  following  relationship  is  for  fixed- 
wing  aircraft,  but  since  its  effect  is  small  and  a  better 
relationship  was  not  found,  airframe  material  cost  is  defined 
as : 

CM  =  .007  (WA)  /(HP)" 12  (TAS)  1“£4 
where  TAS  is  the  aircraft  speed  in  knots. 

Cumulative  average  engineering  and  tooling  costs  per  airframe 
are  related  to  the  total  number  of  units  planned  for  produc¬ 
tion.  3ased  on  post  World  War  II  aircraft  the  relationship 
for  engineering  and  tooling  costs  is: 

CET  =  WA (220/NP  +  7.5/NP*13) 

where  NP  is  the  number  of  units  planned  for  production. 

There  are  additional  costs  which  must  be  added  to  the  above 
costs.  These  are  general  and  administrative  expense  (GA) , 
engineering  change  proposals  (ECP) ,  and  profit  {?) .  The 
following  relations  apply: 

GA  =  0.1 (CL  +  CM) 

ECP  =  0.1 (CL  +  CM  +  CET  +  GA) 

P  =  0.1 (CL  +  CM  +  CET  +  GA  +  ECP) 

In  che  equations  above,  the  AMPR  weight,  WA,  is  relate-d  to 
tr  e  empty  weight,  W*EM,  by 

WA  =  .749  NEM  +  .126 

The  correlation  coefficient  of  this  equation  is  .997  with  a 
standard  error  of  .356  kilo-pounds  ( Reference  7). 

Data  for  17  turboshaft  engines  were  analyzed.  The  best  least- 
squares  fit  was  made  to  obtain  the  following  relationships: 

CE  =  PFA(58  -  .006  PRA /MEM)  PRA  <  3500  HP 

CE  =  NEM (129,500  +  37 (PRA /MEN  -  3500)  PRA  >  3500  HP 

wnere  PRA  is  in  horsepower  per  engine  and  CE  is  in  dollars. 


The  GFAE  category  usually  includes  the  cost  of  ordnance  and 
armament  and  electronics  that  are  not  an  integral  part  of  the 
airframe  and  engines.  This  cost  item  is  highly  dependent  on 
mission  objectives  and  type  of  helicopter,  and  therefore,  is 
quite  sensitive  to  the  function  of  the  aircraft.  For  this 
cost  model,  insufficient  data  exists  to  derive  a  cost 
estimating  relationship  for  the  various  types  of  helicopters, 
i.e.,  utility,  observation,  gunship,  etc.  An  estimation 
equation  with  limited  data  was  found  to  be: 

CC-  =  -3760  +  4.79  WA 

The  initial  costs  are  plotted  in  Figure  18  for  production 
number  of  100  of  a  120-knot  helicopter. 

The  cost  of  production  (CP)  is  then  defined  by: 

CP  =  1.321  Cl.  +  1.331  CM  +  1.21  CET  +  CE  +  CG 

To  simplify  the  model ,  the  constants  are  included  in  the 
individual  terns  to  yield: 

CL  =  1011  (VIA)  *  8V  (NP)  *  39 

CM  =  .009  31  (WA)  (TAS ) 1  * 24/ (KP ) ' 1 2 


ana 


CET  =  1.21 (WA) (220/ (MP)  A  .75/ (NP) ' 1 5 ) 


CP  =  CL  +  CM  +  CET  +  CE  +  CG 


Hie  costs  of  attrition  (CA)  and  initial  spares  (Cl)  are 
defined  as: 


and 


CA  =  (YAR) (CP) (SL)/(NP) 


Cl  =  .1 (C?) 


The  production,  spares,  and  attrition  costs  are  summed 
to  form: 


CPIA  =  C?  +  Cl  +  CA 

Coeratina  Costs 

.  — »  -  — 

The  operating  cost  portion  of  the  model  is  broken  down  into 
three  main  categories,  as  is  shown  in  Figure  17:  maintenance 
direct  operating  costs,  and  attrition. 
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The  probability  of  failure  as  a  function  of  time  shown  is  of 
the  form; 


Pp(t,T)  =  1  -  exp  (-.69?  |) 


where  T  is  the  mean  time  between  failure. 


When  the  elapsed  time  t  =  T,  the  probability  of  failure  is 
.5;  i.e.,  at  the  mean  time  between  failure  the  probability  of 
failure  is  50%.  This  corresponds  to  an  average  loading  of 
the  helicopter  (L  =  1) .  If  the  loading  is  increased  to 
L  =  1.4  for  example,  the  probability  of  failure  increases  to 
.9.  A  failure  probability  of  .9  at  time  Tl  determines  a  new 
failure  curve  and  thus  defines  a  new  MTBF  which  is  T2.  In 
other  words 


Pp(L)  =  Pp(Tl,  T2 ) 


resulting  in 


T2 

Tl 


.693 


.L  +  a 
[  3 


)  Y 


Thus,  the  nev*  MTBF,  T2,  is  determined  from  the  load  factor 
L  and  Tl. 


The  mean- time-be tween-maintenance  action,  Tl,  was  determined 
from  data  in  Reference  12.  Failure  rates  per  flight  hour 
were  determined  for  35  systems  included  in  helicopters.  From 
this  data,  the  average  flight  hours  per  failure  was  determined 
and  was  correlated  to  the  empty  weight,  WE,  of  the  helicopter. 
The  relationship  is 


T  -  -6778  +  -Sr 

where  T  is  the  average  mean  time  between  failures  in  hours 
and  WE  is  the  empty  weight  in  pounds. 

The  loaded  maintenance  costs  are  then  obtained  by  multiplying 
the  above  equation  for  CFM  by  the  inverse  ratio  of  the  mean 
time  between  failures. 

The  above  relationships  result  in  the  relationship 
T/TN  =  .693/ ((OLF  +  . 01 11) /l . 15) 3 
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where  T,  TN  are  the  actual  and  the  normal  mean  time  between 
failures.  OLF  is  the  overload  factor  and  is  the  ratio  of  the 
gross  weight  to  the  design  gross  weight.  In  practice,  it  is 
found  that  in  effect  that  OLF  is  never  less  than  .5,  corres¬ 
ponding  to  T/TN  of  7.6.  This  implies  that  maintenance  is 
still  performed  even  if  the  helicopter  is  not  flown.  When 
OLF  _>  1.5,  catastrophic  failure  occurs. 

The  costs  are  all  reduced  to  cost  per  flight  hour  using  the 
following  equation: 

CPFH  =  CPIA/ (12 (MFH) SL)  +  CD  +  CMT  +  60  CFUL/TTIM 
where  TTIM  is  mission  time  in  minutes  and  CPFH  is  in  $/hr. 
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COMPUTATIONAL  METHOD  -  USER’S  GUIDE  TO  ZODIAC  II 


The  elements  of  the  analytical  model  described  above  must, 
of  necessity,  originate  in  several  different  sections  of  an 
Engineering  Department.  Each  of  these  model  elements  is 
subject  to  minor  or  major  changes  due  to  variations  in 
mission  and  helicopter  type  under  study,  technology  level, 
design  philosophy,  data  available,  or  budgetary  considera¬ 
tions.  The  overall  logic  is  similarly  subject  to  chanqes 
for  these  reasons  and,  in  addition,  because  of  the  particular 
parameters  to  be  varied  and  because  of  variations  in  the 
purpose  of  the  study. 

The  conventional  approach  to  this  modeling  study  would  ranqe 
from  a  simple  computer  program  which  would  have  to  be  re¬ 
programmed  for  each  of  the  many  modifications  in  the  model 
to  a  complex  program  which  includes  prior  provisions  for  all 
the  possible  modes  of  operation.  The  objections  to  these 
methods  include  the  high  cost  of  many  changes  (for  the  simple 
program)  or  high  initial  costs  (for  the  complex  program) ,  the 
difficulty  of  varying  modes  of  operation;  changing  criteria; 
and  expanding  capabilities.  The  most  serious  disadvantage, 
however,  is  the  fact  that  the  engineer  is  left  out  of  the 
decision  loop.  Typically,  the  engineer  would  describe  his 
requirements  to  a  programmer  (or  make  major  program  changes 
himself) ,  or  he  would  select  options  from  a  coded  table.  In 
this  environment  of  continual  change,  the  risk  of  gettina 
meaningless  data  is  significant. 

The  approach  selected  here  for  implementation  is  an  outgrowth 
of  a  computer  program  originally  devised  at  Kaman  primarily 
for  weiqhts  analyses,  where  typically  the  analytical  models 
are  continuously  changing.  This  program,  called  ZODIAC,  is 
described  in  Reference  13. 

The  primary  motivation  in  the  development  of  this  program 
was  that  it  should  be  a  tool  which  is  completely  meaningful 
to,  usable,  and  changeable  by  an  engineer  with  no  or  little 
programming  experience.  It  is  believed  that  this  objective 
has  been  achieved  in  ZODIAC  II. 


PROGRAM  FEATURES 


Prior  to  describing  the  proqram  usage  in  detail,  some  of  the 
features  and  the  organization  will  be  discussed.  Examoles  of 
all  these  features  can  be  found  in  the  listings  of  the  model 
formulations  in  Appendix  II. 


Modular  Organization 


The  analytical  model  is  divided  into  separate  computational 
units  called  "modules".  Each  module  generally  is  used  to 
carry  out  one  logically  self-contained  computation.  Examples 
were  discussed  in  the  previous  section  on  the  Analytical 
Model.  Typically,  individual  modules  will  represent  comouta- 
tions  like  statistical  weight,  mission  fuel  requirements, 
initial  costs,  mission  effectiveness,  etc.  Many  of  the 
quantities  involved  in  the  module  will  not  be  used  any  place 
else  in  the  model.  Only  these  variables  which  are  shared  in 
common  with  other  modules  must  be  specified.  The  module  will 
consist  almost  entirely  of  the  equations  which  define  the 
computation.  Each  module  must  have  a  name  so  that  it  may  be 
referred  to  by  the  "control  module".  Modules  may  be  easily 
changed  by  adding,  removing,  or  changing  equations  or  the 
entire  module. 

Control  Module 


The  overall  logic  of  the  analytical  model  is  carried  out  by 
the  "control  module".  This  portion  of  the  program  consists 
mainly  of  instructions  specifying  which  module  to  run  next. 
The  same  module  may  be  run  more  than  one  time  by  the  control 
module. 


Logical  Operations 

The  number  of  types  of  logical  operations  has  been  limited 
to  true  operational  decision  making  functions.  It  is  pre¬ 
ferred  that  the  engineer  change  his  model  to  reflect  changed 
ground  rules  rather  than  include  several  possibilities  and 
choose  between  them  with  pseudo-logical  input  codes.  In  this 
manner  the  engineer  is  always  fully  cognizant  of  his  model 
and  it  is  always  under  his  full  control.  This  approach  is 
possible  because  of  the  ease  and  safety  with  which  such 
changes  can  be  made.  The  two  major  logical  operations  includ¬ 
ed  are:  (1)  automatic  iteration  within  a  module  or  around 
several  modules  (as  is  commonly  used  in  weight  estimation 
or  in  determining  the  power  for  maximum  range) ;  and  (2)  a 
conditional  evaluation  of  a  variable  (as  might  be  used  to 
prevent  a  power  required  computation  from  exceeding  some 
torque  limitation) . 

Equation  Form 

The  actual  equations  make  up  almost  all  of  the  model.  The 
equations  are  written  in  algebraic  form  (consistent  with 
FORTRAN)  and  allow  all  arithmetic  operations  including 
exponentiation.  See  listings  in  Appendix  II  for  many  examples. 
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Table  Look  Up 

Since  tabular  data  will  normally  make  up  a  substantial 
portion  of  the  input  data  to  any  modeling  program,  ZODIAC  II 
has  an  automatic  table  look  up  feature.  Linear  interpolation 
of  tables  with  up  to  three  independent  variables  is  auto¬ 
matically  performed. 

Input  Data 

Input  of  data  is  extremely  simple.  The  program  does  not 
presuppose  any  point  of  input  or  any  particular  data.  Data 
is  always  self-identified  and  may  be  freely  input  with  the 
modules.  Additional  input  may  be  called  for  during  the 
running  by  the  simple  statement,  READ.  At  this  point,  any 
desired  data  may  be  input  or  changed. 

Output  of  Data 

Output  is  also  extremely  simple.  All  that  is  required  is  the 
simple  statement  PRINT,  followed  by  a  list  of  the  variables. 

On  output  each  quantity  is  automatically  identified. 

The  input  and  output  procedures  are  especially  convenient 
when  compared  to  more  formal  languages ,  like  FORTRAN ,  where 
typically  many  programming  hours  are  spent  deciding  on  all 
the  incut  options  and  output  formats. 

Checks 


Because  of  the  free  form  of  computation  allowed,  it  is 
necessary  for  the  program  to  include  a  number  of  built-in 
automatic  checks.  If  a  variable  used  in  an  equation  has 
not  been  previously  input  or  calculrhed,  a  warning  message 
is  printed.  If  it  is  necessary  to  extrapolate  during  a 
table  look  jp,  a  warning  message  is  also  printed.  If  the 
equations  xn  a  module  cannot  be  evaluated  in  the  order  pre¬ 
sented,  they  are  automatically  rearranged  and  an  error  is 
indicated  if  appropriate. 
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USERS  RULES 


The  rules  for  using  ZODIAC  II  are  quite  simple,  and  all  one 
needs  to  know  is  specified  in  detail  in  the  following  pages. 
In  some  cases  comments  meant  for  FORTRAN  programmers  are 
included  in  parenthesis.  These  comments  should  be  ignored 
by  engineers  not  familiar  with  FORTRAN.  There  are  a  few 
definitions  required  prior  to  discussion  of  the  allowable 
statements : 

Statement  -  meaningful  (to  the  computer)  contents  of 
a  punched  card 

Variable  -  an  algebraic  quantity  whose  name  has  from 
1-4  letters  or  numbers,  the  first  of  which 
must  be  a  letter.  Examples:  A,  QMR,  B123, 
A7L6.  If  the  variable  is  common  (see 
below)  its  name  mav  be  preceded  bv  a  $. 

Constant  -  a  number.  It  may  be  positive  or  neaative, 
it  may  or  may  not  have  a  decimal,  and  it 
may  contain  an  exponential.  Examples:  12, 
15.7,  1 . 73E-5 (=  1.73  x  10“5) ,  6.54E16, 

2E10. 

The  followina  codes  are  used  in  the  followina  sections. 

v  =  variable 
c  i  constant 

vc  h  variable  or  constant 
n  H  name 

Capital  letters  indicate  precise  words  required  as  part  of 
the  statement.  Blanks  are  ignored  and  may  be  used  anvolace 
on  cards  for  clarity  (with  the  sinale  exception  of  input 
table  data) . 

All  statements  may  be  followed  by  comments  on  the  same  card 
provided  a  semicolon  (11-8-6  punch)  is  used  to  separate  the 
two. 

There  are  three  aroups  of  statements:  Control  Module  State¬ 
ments,  .Module  Statements,  and  Data  Statements.  These  will  be 
discussed  separately. 


ITERATE  ON  V,  ATOL  =  vc,  PTOL  =  vc,  TIMES  =  c,  FROM  n  - 
This  causes  the  program  to  iterate  on  the  statements 
which  are  located  betv/een  the  POINT  specified  by  FROM  n 
and  the  iterate  statement.  Iteration  will  continue 
until  two  successive  values  of  the  variable  specified 
by  ON  v  are  within  the  limits  set  by  ATOL  or  PTOL  or 
until  the  number  of  iterations  exceeds  the  amount 
specified  by  TIMES.  The  details  for  each  specification 
are  as  follows. 

ON  v  -  The  variable  which  is  specified  is  the  variable 
on  which  iteration  will  occur.  This  specification  is 
optional,  if  it  is  omitted  the  computations  will  be 
repeated  the  number  of  tires  specified  by  TIMES. 

ATOL  =  vc,  PTOL  =  vc  -  Both  ATOL  and  PTOL  are  us_-d  as 
a  test  for  convergence  of  the  variable  specified  in  the 
ON  specification.  ATOL  is  an  absolute  tolerance  and 
PTOL  is  a  percent  tolerance.  Both  ATOL  and  PTOL  are 
optional,  but  both  are  omitted,  PTOL  is  set  equal  to 
5  percent.  For  convergence,  one  or  both  of  the 
following  must  be  true: 


and/or 


!  v .  -  v .  ,  I  <  ATOL 
'  1  x-1 ' 


100 


v 


i-1 


<  PTOL 


Note  that  PTOL  is  put  in  in  percent  not  decimal. 

TIMES  =  c  -  This  specification  is  used  to  specify  the 
maximum  number  of  iterations  to  be  allowed.  If  con¬ 
vergence  is  not  obtained  before  the  number  specified 
by  TIMES  is  exceeded,  iteration  stops  and  an  error 
message  is  printed  out. 

FROM  =  n  -  This  specifies  from  which  p0INT  in  the 
program  iteration  is  to  occur.  The  point  name 
specified  must  be  on  a  POINT  statement  which  must 
precede  the  ITERATE  statement . 
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COMMON  v,  v,  v  -  A  COMMON  statement  is  used  to  specify 
variables  which  are  used  in  other  modules.  The  order 
in  which  variables  appear  on  the  card  is  not  important, 
but  the  variabl 2  name  must  be  the  came  in  both  modules. 

A  $  precedina  a  variable  name  has  the  same  effect  as 
placing  the  variable  name  in  a  COMMON  statement.  A 
common  statement  must  appear  in  a  module  before  any  of 
the  variables  >n  it  are  used.  This  statement  is  nor¬ 
mally  placed  at  the  beginning  of  the  module.  Each  card 
may  contain  uc  to  40  variables.  As  many  COMMON  ca.ds 
as  necessary  nay  be  used.  (As  distinguished  from 
FORTRAN  the  order  of  the  names  is  immaterial,  only  the 
names  themselves  are  important.) 

(LT) 

IF  vc  IS  EQ  vc,  GO  TO  n  -  In  this  statement  a  test  is 
_ (GT) _ 

made  to  determine  if  the  left  variable  or  constant  is 
less  than  (I.T)  ,  equal  to  (EQ) ,  or  greater  than  (GT)  the 
right  variable  or  constant.  If  the  statement  is  found  to 
be  true,  then  the  module  branches  to  POINT  n.  If  the 
statement  is  not  true,  the  next  statement  following  the 
IF  statement  is  executed. 

GO  TO  n  -  This  statement  causes  a  branch  to  POINT  n. 

The  next  computation  to  be  performed  immediately  follows 
the  POINT  n.  Note  that  a  GO  TO  should  be  followed  bv  a 
POINT  statement  or  be  at  the  end  of  the  module  since 
there  is  no  way  of  getting  to  a  statement  which  follow’s 
a  GO  TO  unless  it  is  a  POINT  statement. 

READ  -  This  statement  will  cause  data  to  be  read  into 
the  next  module  before  it  is  run.  The  rules  for  the 
data  statements  are  specified  elsewhere.  (No  specifica¬ 
tion  is  made  as  to  what  or  how  much  data  is  to  be  read, 
this  is  defined  on  the  input  cards.) 

PRINT  v,  v,  v  -  This  statement  causes  the  values  of  the 
variables  to  be  printed  and  identified  in  a  standard 
format,  five  to  the  line. 

Module  Statements 

The  module  contains  primarily  computation  and  a  minimum  of 
logical  instructions.  The  allowable  statements  and  their 
descriptions  are  as  follows: 


. . . . . . . . . . . — . . . . ui . mu . MUM . * . «•« . . * . * . " . MMmuamak 


ITERATE  ON  v,  ATOL  =  vc,  PTOL  =  vc ,  TIMES  =  c  -  This 
statement  is  the  same  as  used  in  the  Control  Module 
with  the  single  and  very  imnortant  exception  of  the 
absence  of  the  FROM  specification.  In  a  module  the 
whole  module  is  iterated  upon  exceot  the  INITIALIZE 
statement.  The  location  of  this  statement  in  the 
module  is  not  important. 

INITIALIZE  v  =  c,  v  =  c...uD  to  17  variables  per  card  - 
The  initialize  statement  may  be  used  in  a  module  which 
contains  an  ITERATE  statement.  Before  the  first  itera¬ 
tion  the  variables  specified  are  initialized  to  the 
soecified  values. 

COMMON  v ,  v ,  v . . .  -  This  statement  is  used  to  designate 
variables  which  are  used  in  or  come  from  other  modules. 
The  rules  are  the  same  as  for  the  Control  Module  state¬ 
ment.  Note  that  only  variables  which  are  used  in  the 
module  need  to  be  listed  and  that  the  order  is  not 
significant. 

CL7) 

IF  vc  IS  EQ  vc,  v  =  general  exoression  -  This  statement 

_ (GT) _ 

is  similar  to  the  IF  statement  of  the  Control  Module 
except  that  a  general  algebraic  statement  is  evaluated 
if  the  logical  statement  is  true.  This  statement  is 
often  used  for  limiting  conditions:  for  exarcole,  a 
stall  limit  might  be  imoosea  by  the  following  statements 

VMAX  =  TABLE  VEL  (POW,  FOW) 

IF  VMAX  IS  GT  VSTL ,  VMAX  =  VSTL 

which  says  that  VMAX  will  not  be  greater  than  VSTL. 

PRINT  v,  y,  v. . .  -  up  to  40  variables  per  card  -  The 
statement  is  the  same  as  above  except  that  recardlee^ 
of  where  it  is  located  in  the  module  the  data  is  not 
printed  until  the  nodule  has  been  run. 

NO  ORDER  -  Normally  a  module  is  run  with  the  statements 
m  the  same  order  as  they  were  read,  and  if  one 
sequence  must  be  changed  an  error  message  is  produced. 
This  statement  allows  the  sequence  to  be  changed  without 
prccucinc  an  error  message. 
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Data  Statements 


Data  can  be  entered  following  any  of  the  modules  (including 
the  Control  Module)  when  the  model  is  first  loaded  into  the 
computer.  This  is  done  with  no  special  instruction.  For 
data  to  be  read  by  a  module  during  the  running  of  the  program, 
the  RUN  MOD  n  statement  is  preceded  by  a  READ  statement.  At 
no  time  does  the  user  have  to  specify  in  the  model  how  much 
or  what  data  Is  to  be  read. 

For  input  of  variables  the  following  form  is  used  on  the 
cards : 

v=c,  v  =  c ,  v  =  c. - . 

There  may  be  up  to  twenty  variables  oer  card.  The  commas  are 
required  to  separate  the  statements.  The  following  example 
is  an  illustration  of  two  cards  of  data. 

ALT  =  2000,  OAT  =  35.,  GW  =  10,000 
DL  =  8.5,  VRC  =  500. 

Only  variables  which  are  referred  to  in  a  module  (or  in  its 
COMMON  statement)  may  be  entered. 

Input  of  tables  requires  somewhat  more  care.  The  first  card 
must  be  of  the  form: 

TABLE  NAME  =  n,  SIZE  =  (c,  c,  c) 

This  statement  is  used  to  assign  a  name  to  a  table  and  to 
define  its  size.  This  statement  must  be  followed  by  the  data 
for  the  table.  The  name  must  conform  to  the  sans  rules  as  a 
variable  name..  The  size  need  only  contain  the  number  of 
arguments  needed  to  specify  the  array  size;  for  instance,  if 
a  table  has  10  "x"  values  and  3  "y"  values,  the  size  would 
be  (10,3).  The  order  in  which  the  data  is  input  is  given 
below.  The  data  cards  are  of  the  form: 

c  c  c  c 

Each  card  contains  up  to  8  constants.  This  form  is  used 
only  for  table  data  input.  This  card  is  the  only  one  with 
a  specific  format.  Each  constant  must  be  contained  in  a 
field  of  10  columns,  1-10,  11-20,  etc.  Each  constant  must 
also  contain  a  decimal  point.  Otherwise  the  rules  are  the 
same  as  for  a  normal  constant.  The  order  in  which  the  data 
is  input  will  now  be  described.  y  and  z  correspond  to  the 

first.-  second  and  third  arguments  in  a  v  =  TABLE  n(x,y,z) 
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statement.  Consider  a  TABLE  NAME  statement  with  SIZE  = 

(i#  j#  k).  The  first  thing  to  be  input  would  be  i  values 
of  x  followed  by  j  values  of  y  and  then  k  values  of  z.  Then 
the  table  is  read  in  with  the  first  index  varying  first, 
then  the  second,  then  the  third.  That  is, the  elements  of 
a  (3,4)  table  would  be  read  in  this  order:  (1,1),  (2,1), 
(3,1),  (1,2),  (2,2),...  A  new  card  must  be  started  whenever 
one  of  the  indices  returns  to  1.  The  values  of  x,  y,  z  must 
be  in  ascending  order.  They  may  be  positive  or  neaative  and 
the  increments  need  not  be  constant:.* 

.me  following  is  an  example  or  a  table  which  has  thrt^e  x 
values  and  four  y  values. 

5  2.6  3.4  5.8 

2.5  2.1  3.2  5.5 


0  2.0  3.0 


0  10  20 
X 


The  data  cards  would  be  as  follows: 


Card  i 

Contents 

Comments 

1 

TABLE 

NAME 

=  EXHP ,  SIZE  =  (3,  4) 

2 

0 

10.0 

20.0 

x  values 

3 

/■* 

U 

1.0 

2.5  5.0 

Y  values 

4 

2.0 

3.0 

5.5 

5 

1.9 

2.85 

5. 4 

6 

2.1 

3.2 

5 . 5 

Table 

7 


2.6 


3.4 


5.8 


SYNTAX  RULES  FOR  EXPRESSIONS 


The  rules  for  general  expressions  are  essentially  the  sane 
as  for  any  algebraic  expression  (and  are  compatible  with 
FORTRAN).  Two  things  to  keep  in  mind  are  that  for  multiplica¬ 
tion,  the  multiplication  operator  must  separate  the  two 
variables,  and  since  equations  are  written  on  one  line  extra 
parentheses  are  sometimes  required  when  dividing. 

There  are  five  operations  which  are  allowed,  the  operation 
and  their  svmbols  are  as  follows: 


Operation 


Svmbols 


1.  Addition  J 

2.  Subtraction 

3.  Multiplication  * 

4.  Division  / 

5.  Exponentiation  ** 

There  are  two  other  symbols  which  are  allowed  in  a  ceneral 
expression.  They  are  left  and  right  parentheses  which  are 
used  for  associations  and  must  be  used  in  pairs  - 

The  following  are  the  rules  for  cer.eral  expressions  'these 
are  a  formalization  of  ordinary'  alaebraic  form)  : 

1*  All  variables  and  constants,  except  the  first 
must  be  preceded  by  an  operator  or  a  left 
parenthesis.  The  first  may  be  preceded  bv  a 
left  parenthesis  or  a  sicn. 

2,  All  variables  and  constants,  except  the  last, 
must  be  followed  by  an  operator  or  right 
parenthesis.  The  last  may  be  followed  bv  a 
right  parenthesis. 

3.  A  left  parenthesis  must  be  preceded  by  a  left 
parenthesis  or  an  operator  unless  it  is  the 
first  symbol  in  the  expression,  in  which  case 
it  may  be  preceded  by  a  sign. 


A  left  parenthesis  must  be  follove? 


a  le  ft 


5.  A  right  parenthesis  must  be  preceded  by  a  right 
parenthesis,  a  variable,  or  a  constant. 

6.  A  right  parenthesis  must,  unless  it  is  the  last 
symbol  on  the  card,  be  followed  by  a  right 
parenthesis  or  an  operator. 

7.  An  operator  must  be  preceded  by  a  variable  or  a 
right  parenthesis. 

8.  An  operator  must  be  followed  by  a  left  parenthesis 
or  a  variable. 

The  following  are  examples  of  general  expressions  which 
conform  to  the  rules. 

A  +  B 

A*B  +  C**D 

{A  +  B )  *  *  1  3  +  (2  *  (  3  +  B  -  C)  )  **  (2*K) 

(A  +  B  +  C)/  (D  +  E  +  F) 

(TIM  +  PHSE) *  PIE*2 
( ( (X  +  3) *6  +  2 ) *B  +  C) ** . 5 
6*A  +  3*B  +  5/C 

The  order  in  which  operations  are  performed  are: 

1.  Exponentiation 

Multiplication  and  Division 
3.  Addition  and  Subtraction 

The  order  of  evaluation  is  from  left  to  right,  with  paren¬ 
thetical  expressions  being  evaluated  first  and  then  the 
expression  as  a  whole.  Note  that  the  division  operator 
applies  only  to  the  variable  or  parenthetical  expression 
immediately  following  it,  i.e., 


A/B*C  : 


PROGRAM  OPERATION 


The  first  deck  to  be  loaded  must  be  the  control  module.  This 
is  followed  by  any  appropriate  data.  Then  the  individual 
modules  are  loaded,  each  optionally  followed  by  a  block  of 
data.  These  modules  may  be  loaded  in  any  order.  The  order 
in  which  they  are  used  is  solely  determined  by  the  statements 
of  the  control  module.  After  the  last  module  is  input, 
appropriate  blocks  of  data  follow  in  the  order  in  which  they 
will  be  called  by  READ  statements  during  execution  of  the 
program. 

Each  of  the  above  units  must  be  separated  by  an  "end-of-file" 
card  which  contains  am  /*  in  columns  1  and  2.  Thus  the  input 
deck  will  appear  as  follows: 

(Control  Module) 

/* 

(Data) 

/* 

(Module) 

/* 

(Data) 

/* 

(Module) 

/* 


(Last  Module) 

/* 

(Data) 

/* 

/* 

(Data) 

/* 

(Data) 

/* 


Data  input  is  assumed  after  each  module.  Even  if  no  data 
are  entered  then  the  two  /*  cards  must  still  appear: 


(Module) 

/* 

/* 

(Module) 
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After  the  last  module  is  entered,  two  /*  cards  instruct  the 
computer  to  start  running  the  model.  If  the  last  module  is 
not  followed  by  input  data,  then: 


• 

(Me  dule) 

/* 

/* 

/* 


PROGRAM  LIMITATIONS 

The  following  limits  exist  in  the  present  version  of 
ZODIAC  II. 

Common  variables  -  200  maximum 

Noncommon  variables  -  200  maximum  in  a  module 

Constants  -  200  maximum  in  a  module 

Equations  -  100  maximum  in  a  module 

Tables  -  20  maximum 

Modules  -  30  maximum 

Iterate  statements  -  4  maximum  in  a  module 
Constants  may  not  contain  more  than  fifteen  characters. 


ERROR  CODES 

During  operation  of  the  program,  certain  violations  of  rules 
or  apparent  violations  of  logic  may  occur.  When  this  happens 
a  coded  error  message  is  printed.  The  codes  are  aiven  in 
Table  IX. 


TABLE  IX.  ERROR  CODES 


pode _ Meaning _ 

1  Number  of  common  variables  exceeds  200 

2  Number  of  constants  exceeds  200  in  module 

3  Number  of  equations  exceeds  100  in  module 

4  Missing  parenthesis 

5  "="  missing  or  incorrectly  placed 

6  Name  length  on  data  card  too  long 

7  Constant  exceeds  15  characters 

8  Number  of  noncommon  variables  exceeds  200  in  module 

9  Undefined  variable  in  module 

10  Equations  reordered  -  possible  error 

11  Name  of  argument  in  table  lookup  too  lone 

12  More  than  3  arguments  in  a  table  lookup 

13  Invalid  character 

14  Incorrect  symbol 

15  More  than  one  "="  on  card 

16 

17  Undefined  "FROM"  on  iterate  card 

18  No  name  on  a  MODULE  NAME  card 

19  Incorrect  argument  on  IF  card 

20  Incorrect  operation  on  IF  card _ _ 


TABLE  IX  -  Continued 


Code _ Meaning 

21  Incorrect  format  on  IF  card 

22  More  than  4  ITERATE  statements  in  a  module 

23  More  than  30  modules 

24  Illegal  command 

25  Number  cf  iteration  exceeds  allowed  number 

26  Illeqal  statement  in  control  module 

27  More  than  20  tables 

28  Number  of  arguments  in  a  table  lookup  is  inconsistent 

29  Table  lookup  requires  extrapolation 

30  Error  on  table  input 

31  More  than  18  variables  initialized  in  module 

32  Invalid  operator  on  a  control  module  card 

33  Name  too  long 

34  Undefined  variable  in  control  module 


In  general,  the  program  will  continue  to  run  even  though 
errors  are  found.  Invalid  variables  are  ignored  and  other 
assumptions  are  made  which  will  allow  the  completion  of  the 
computation.  Care  must  be  exercised  since  some  computations 
with  errors  will  be  valid,  some  will  be  completely  invalid, 
and  some  will  have  limited  meaning.  This  approach,  however, 
is  expected  to  minimize  the  time  required  to  verify  a  program. 

The  only  error  which  will  terminate  a  run  is  no.  34. 
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SUGGESTIONS  FOR  THE  NEW  USER 


A  good  way  for  the  new  user  of  ZODIAC  II  to  gain  familiarity 
with  the  usage  of  the  program  is  to  first  modify  existing 
models,  rather  than  attempting  to  develop  a  complete  new 
analytical  model. 

Changes  within  individual  modules  corresponding  to  mission 
definition  changes,  effectiveness  criteria,  statistical 
weight  analysis,  etc.,  are  especially  straightforward.  It 
is  recommended  that  each  equation  be  identified  by  making  use 
of  the  comment  capability  on  each  card. 

A  next  step  in  the  familiarization  process  would  be  to  add  or 
delete  modules  and  make  the  appropriate  changes  in  the  con¬ 
trol  module  statements. 

Making  changes  in  the  logic  within  the  modules  and  especially 
in  the  control  module  will  complete  the  process  of  familiari¬ 
zation.  While  these  modifications  are  being  performed, 
computer  runs  using  various  combinations  of  data  variations 
should  be  conducted. 


User  Techniques 


One  of  the  major  objectives  of  ZODIAC  II  was  to  make  the 
model  formulation  virtually  self-explanatory  to  the 
engineering  user.  This  has  been  achieved  providing  the  user 
does  not  artifically  complicate  his  model  by  allowing 
numerous  artificial  choices  between  options,  onlv  one  of 
which  will  be  used  at  one  time.  For  example,  it  would  be 
tempting  to  a  conventional  programmer,  when  developing  a 
module  to  estimate  drag,  to  include  the  relationship  for  all 
the  types  of  helicopters  and  selecting  the  appropriate  one  by 
a  coded  input  such  as  "1"  =  cargo  helicopter,  "2*  =  utility 
helicopter,  etc.  This  kind  of  programming  is  to  be  dis¬ 
couraged  because  it  tends  to  obscure  the  analytical  model. 


It  is  strongly  suggested  that,  when  analyzing  different 
helicopters,  the  proper  equations  are  placed  in  the  proper 
modules.  These  changes  are  easy  to  make  and  the  engineer 
will  always  know  what  model  he  was  using.  This,  of  course, 
is  the  objective  of  this  program. 
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One  of  the  qreat  advantages  of  this  trogram  is  that  computa¬ 
tions  can  be  easily  performed  that  were  not  envisioned  by  the 
original  programmer.  It  is  suggested  that  the  encineerino 
users  do  not  hesitate  to  increase  the  sophistication  of  the 
computations  by  adding  new  modules ,  modifyina  old  ones,  using 
new  types  of  data. 

Another  advantaoe  of  this  program  is  that  it  is  possible  to 
vary  any  parameters  without  having  made  prior  provision  in 
the  basic  proqram.  For  example,  suppose  it  were  desired  to 
study  several  combinations  cf  number  produced  (NP) ,  monthly 
flight  hours  (MFH)  and  yearly  attrition  rate  (YAR) .  In  this 
case  the  control  module  could  be  preceded  by  a  POINT  and  READ 
statement  and  followed  by  a  PRINT  and  an  ITERATE  statement 
as  follows: 


POINT  NEW 
READ 


Original  control  module 

PRINT  NP,  YAR,  MFH 

ITERATE  TIMES  =  10,  FROM  NEW 


This  will  cause  data  to  be  read  in  ten  times  and  the  complete 
computation  repeated.  In  readina  data,  note  that  the  last 
used  values  are  in  effect  until  a  new  value  is  computed  or 
read  in  as  data.  Thus,  the  data  packaqe  following  this 
modified  oroaram  could  be  as  follows: 


/* 

/*  (end  of  model  input) 

NP  =  1C-00,  YAR  =  0,‘mfh  =  100 
/* 

MFH  =  300,  NP  =  100 

/* 

YAR  =  10 
/* 

YAR  =  50,  NP  =  1T0 
/* 

NP  =  500 

/* 

YAR  =  10,  MFH  =  200 

/* 

etc. 
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Thus,  it  is  seen  that  by  adding  the  few  cards  shown  above, 
it  is  possible  for  the  enqineer  to  vary  any  parameters  he 
wishes  and  in  any  manner  he  wishes. 

There  is  an  area  where  the  user  must  use  some  caution.  It 
was  intentional  in  the  desiqn  of  ZODIAC  II  that  no  arqument 
list  be  used  (as  in  FORTRAN) ,  and  that  all  interchanqe  of 
data  between  modules  be  carried  out  through  the  common 
variables.  This  technique  helps  to  minimize  the  risk  of 
making  local  chances  in  modules.  However,  if  the  same  module 
is  used  at  more  than  one  point  in  the  control  module,  some 
of  the  same  variables  will  chanae  their  values  more  than 
once  during  the  computation.  This  is  no  problem  unless  it 
is  desired  to  use  one  of  the  results  of  an  earlv  use  of  a 
module  after  the  module  has  been  run  aaain.  The  same  effect 
occurs  if  the  same  variable  is  computed  in  different  modules. 
For  example,  consider  the  computation  of  fuel  load,  WFL,  at 
different  points  in  a  mission  where  each  seoment  makes  a 
computation  of  the  form  WFL  =  WFL  +  DELTA. 

RUN  MOD  TAKE  OFF 
RUN  MOD  CLIMB 
RUN  MOD  CRUISE 
etc 

If  it  is  desired  to  know  at  some  later  point  the  fuel  used 
after  takeoff  but  before  climb,  this  can  be  accomplished  by 
naming  a  new  variable  and  insertino  the  simple  equation  as 
follows : 

RUN  MOD  TAKE  OFF 
WFLO  =  WFL 
RUN  MOD  CLIMB 
etc 

WFLO  will  retain  its  value  as  desired.  WFL  must  be  in  a 
COMMON  statement  in  the  control  module. 

Techniques  such  as  suoaested  above  will  be  found  to  be 
readily  picked  uo  by  engineers  without  any  conventional 
programming  experience  in  a  short  time. 


METHOD  APPLICATIONS 


UTILITY  MISSION 

As  an  application  of  the  techniques  and  computer  program 
discussed,  a  number  of  conditions  have  been  analyzed.  Most 
of  the  data  presented  here  is  for  the  utility  mission  as 
described  in  Tables  I  and  II.  In  addition  to  the  data 
discussed  previously,  the  following  parameters  have  been 
used  in  these  computations: 


NP  (no.  of  ship  produced)  =  1000 
YAR  (yearly  attrition  rate)  =  40 
SL  (system  life)  =  10  years 
KCR  (crew  weight)  =  400  lb 

MFH  (average  monthly  flight  hours)  =  100  hr 
PM  (power  marqin)  =  5  percent 
NEN  (number  of  engines)  =  2 
DL  (disk  loading)  =  8  lb/ft^ 

TS  (main  rotor  tip  speed)  =  700  ft/sec 
BL  (blade  loading)  =  30  lb/ft2 
NRM  (no.  of  main  rotor  blades)  =  4 
S.M  (airspeed  margin  to  stall)  =  10  kt 
RCP  (fuel  reserve)  =  10  percent 

The  first  desian  point  was  taken  as  4000  ft,  95°F,  500  ft/sec 
rate  of  climb.  "Current"  SFC  data  was  used  (See  Figure  3). 

For  the  statistical  weight  analysis  the  following  assumptions 
were  made  (see  Table  III) : 

AG  =  1  (no.  of  auxiliary  landina  gears) 

BF  =  1  (blade  foldinc  included) 

BRK  =  1  (main  rotor  brake  included) 

ITR  =  1  (intermediate  tail  rotor  gearbox  included) 

KLG  =  .0329  (tricycle  landina  near) 

KNAC  =  .96  (nacelle  for  twin  enaines  mounted  to 
transmission) 

NR  =1  (no.  of  mair.  rotors) 

NULT  =  4.5  (ultimate  load  factors) 

TAF  =  13  (type  of  aft  fuselage  (see  Table  III)) 

TPU  =  0  (no  auxiliary  power  unit) 

TPY  =  62  (type  of  pylon  conf iauration  (see  Table  III)) 
The  around  rules  used  are  as  follows: 
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Figure  19  Two-Point  Design  Gross  Weights  for 
Utility  Mission. 
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Also  shown  in  Figure  19  is  the  resulting  gross  weight  at 
point  one,  that  is,  with  the  mission  payload.  The  changes 
in  these  weights  are  due  to  the  changes  in  empty  weight  and 
mission  fuel  requirements.  The  gross  weight  at  the  second 
design  point  includes,  in  addition,  the  increased  oavload. 

Figure  20  illustrates  the  oayioad  capability  as  a  function  of 
the  second  design  point.  Mote  that  at  point  one,  the  standard 
mission  payload  applies  to  all  second  design  ooints. 

Engine  and  Transmission  Racings 

Figure  21  illustrates  the  effect  of  second-point  design 
selection  on  transmission  limits.  As  the  second-point  design 
temperature  and  altitude  are  reduced,  the  engine  sower  avail¬ 
able  at  the  second  design  point  ir  increased"  The  trans¬ 
mission  rating  is  increased  to  match  this  power  ie''el,  and 
the  engine  is  derated  less  and  less. 

Figure  21  also  indicates  an  effect  of  second-design  point 
conditions  on  required  power  rating.  This  is  a  secondary- 
effect  and  results  from  empty  weight  changes  as  the  second- 
design  point  capability  is  added  to  the  helicopter.  As  the 
second-design  point  temperature  or  altitude  are  decreased, 
the  empty  weight  increases,  and  the  first  design  point 
requirements  can  no  longer  be  met  with  the  single-point 
design  engine. 

Cost  Variation 

The  computed  cost  per  flight  hour  is  shown  in  Figure  22  for 
several  payloads.  This  cost  includes  initial  costs  which 
are  primarily  a  function  of  empty  weight  and  operating  costs 
which  reflect  the  effect  of  the  ratio  of  actual  gross  weight 
to  design  (second  point;  gross  weight.  For  small  payloads 
the  costs  are  only  slightly  sensitive  to  the  second  design 
point;  however,  as  the  payload  increases  this  sensitivity 
also  increases.  This  figure  shows  typical  data  obtained. 

hover  Probability 


The  cumulative  joint  probability  of  hover  is  an  extremely 
important  factor  in  the  overall  cost  effectiveness  computa¬ 
tion.  It  is  a  factor  which  is  very  sensitize  to  the  assumed 
environmental  operating  conditions  of  the  helicopter.  It  is 
also  a  auanti tv  which  tends  to  reduce  the  cost  effectiveness 
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conditions  can  be  expected  to  be  less  stringent  than  4000  ft, 
35 °C.  However,  a  single-point  helicopter  designed  for  2000 
ft,  25°C,  for  example,  will  be  able  fo  hover  with  its  design 
payload  only  34  percent  of  the  time  since  over  much  less  of 
the  area  and  time  will  the  operating  conditions  be  less 
stringent  than  this  design  point.  Of  course,  the  two-point 
design  helicopter  will  be  carrying  larger  payloads  so  there 
is  a  rather  delicate  balance  between  these  two  factors. 

Figure  23  (a-d)  presents  the  probability  of  hover  obtained. 

Overall  Cost  Effectiveness 

'’’he  final  results,  including  the  effects  of  assumed  payload 
variation,  costs,  and  hover  probability,  are  given  in  Figure 
24.  It  is  seen  that  local  peaks  occur  at  certain  tempera¬ 
tures.  The  optimum  point  calculated  appears  to  be  at  4000  ft, 
20 °C  representing  about  a  10-percent  increase  in  cost 
effectiveness  compared  to  the  single-point  design. 

This  "optimum"  helicopter  has  an  increased  design  gross 
weight  of  about  15  percent  and  an  increased  payload  at  the 
second  design  point  of  about  40  percent. 

It  must  be  emphasized,  however,  that  these  results  are 
sensitive  to  the  predefined  mission,  assumed  number  of 
production  units,  assumed  payload  utilization,  environmental 
statistics,  and  numerous  other  factors  which  will  vary  with 
the  particular  requirements  for  thi  vehicle  under  study. 


WEIGHT  SENSITIVITY 

One  of  the  most  significant  portions  of  the  analytical  model 
is  the  statistical  weight  model.  In  order  to  gain  some  in¬ 
sight  into  the  sensitivity  to  the  empty  weight,  some  of  the 
previous  computations  were  repeated  with  an  arbitrary  20- 
percent  increase  in  predicted  empty  weight.  Fo  ;  comparative 
purposes  the  payloads  are  shown  in  Figure  25.  A  comparison 
of  the  cost  per  hour  is  shown  in  Figure  26. 

The  change  in  probability  of  hover  with  increased  weight  is 
interesting*  At  payloads  below  ICO  percent,  the  heavier 
helicopter  has  lower  probability  of  hovering.  At  100  percent 
payload  (note  that  the  payloads  are  not  the  same),  the 
probabilities  are  equal.  At  over  100  percent  the  heavier 
helicopter  has  increased  probability  of  hover.  This  effect 
is  illustrated  in  Figure  27  for  25°C.  The  effect  is  the  same 
at  other  teiirperatures . 
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Fiqure  23-  Probability  of  Hover  and  VRC  for 
Utility  Mission. 
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The  overall  cost  effectiveness  is  shown  in  Figure  28.  While 
the  effectiveness  is  reduced  because  of  increased  costs  and 
reduced  probability  of  hover  (for  70  percent  of  the  tine),  the 
curves  have  very  similar  shapes. 

PAYLOAD  UTILIZATION  EFFECTS 

The  previous  analysis  used  a  payload  distribution  based  on 
percentages  of  the  maximum.  This  implies  that  the  size  of 
the  payload  will  always  depend  on  the  capability  of  the 
helicopter.  At  the  opposite  extreme  is  the  concept  of 
missions  having  no  relationship  to  the  maximum  capability  of 
the  helicopter  but  having  a  requirement  for  the  transportation 
of  specific  payloads.  To  consider  the  effect  of  such  a 
Day load  distribution  the  same  schedule  of  payload  was  used , 
except  that  the  payload  was  a  percentage  of  the  fixed  first 
point  design  payload  rather  than  the  variable  second  point 
payload. 

While  the  first  approach  resulted  in  a  highly  loaded  heli¬ 
copter,  this  approach  results  in  lightly  loaded  helicopters. 

In  general,  the  probability  of  hover  is  significantly  in¬ 
creased  and  the  costs  are  reduced  because  of  reduced 
maintenance.  Since  the  same  payloads  are  carried  at  reduced 
operating  costs,  the  cost  effectiveness  tends  to  increase  at 
the  more  stringent  design  points.  This  effect  is  illustrated 
in  Figure  29.  Note  that  the  data  of  Figures  19  and  20  also 
apply  to  this  condition. 

This  result,  in  effect  says  that  for  a  given  fixed  payload, 
the  larger  the  helicopter  the  less  the  cost  will  be  because 
the  reduced  unscheduled  maintenance  is  the  dominating  factor. 
This  appears  unrealistic  and  suggests  a  flaw  in  the  cost 
model. 

In  actuality,  a  distribution  which  is  partially  fixed  and 
partly  dependent  on  the  helicopter's  capability  is  probably 
more  realistic.  If  we  take  as  an  example  a  50-percent  mix 
of  the  two  types  discussed,  the  curves  on  Figure  29  are  the 
result.  A  comparison  of  the  curves  of  Figu^f**  29  and  Figure 
24  illustrates  how  sensitive  the  optimization  can  be  to  the 
predicted  payload  schedule. 
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Figure  23.  Effect  of  20%  Increase  in 
Weight  Stodel  on  Overall  Co 


FIXED  PAYLOADS 


GUNSHIP 


Sample  computations  were  carried  out  for  the  Gunship  Mission. 
The  input  is  the  same  as  for  tne  Utility  Mission  except  as 
follows : 


DL  (Disc  Loading)  =  9  lb/ft^ 

BL  (Blade  Loading)  =  90  lb/ft^ 

TAP  =  15  (See  Table  III) 

TPY  =  14  (See  Table  III) 

The  gross  weights  and  the  overall  cost  effectiveness  results 
for  35 °C  are  shown  in  Figures  30  and  31. 


CRANE 


Computations  for  the  Crane  Mission  were  performed  for  the 
mission  as  described  in  Tables  I  and  II.  The  input  is  the 
same  as  for  the  utility  ship  except  for  the  followina: 


NEN  (no.  of  engines)  =4  _ 

DL  (disc  loading)  =  9  lb/fz 
TS  (tip  speed)  =  750  ft/sec 
NMF  (no.  of  main  rotor  blades)  =  6 
BL  (blade  loading)  =  90  lb/ft^ 

ITR  =  0  (See  Table  III) 

KLG  =  .0405  (See  Table  III) 

KNAC  =  2.26  (See  Table  III) 

TAF  =  10  (See  Table  III) 

TPU  =  1  (See  Table  III) 

TPY  =  25  (See  Table  III) 

The  gross  weights  and  payloads  and  the  overall  cost  effective¬ 
ness  are  shown  on  Figures  32  and  33. 


TRANSPORT 


The  results  of  a  sample  run  of  the  transport  model  are  pre¬ 
sented  in  Figure  34.  The  mission  for  the  transport  is 
described  in  Tables  I  and  II.  The  transport  model  differs 
from  the  Utility  in  the  following  manner: 
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COST  EFFECTIVENESS  -  L-B/($ 
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DL  (disc  leading)  =  9  lb/ft2 
NMR  (no.  of  blades)  =  5 
NEN  (no.  of  engines)  =  4 
TAF  =  9  (See  Table  III) 

TPY  =  45  (See  Table  III) 

VLG  =  .0247  (See  Table  III) 

=  2  (See  Table  III) 
iAC  =  2.26  (See  Table  III) 
?U  =  1  (See  Table  III) 


OBSERVATION 


The  Observation  Model  differs  from  Utility  in  a  very  basic 
manner.  Instead  of  increasing  the  payload  at  the  second 
design  point,  the  loiter  time  was  increased.  The  cost 
effectiveness  portion  of  the  model  is  simplified  considerably 
since  there  are  no  probability  of  hover  or  payload  distribu¬ 
tion  considerations.  For  cost  effectiveness  loiter  time  is 
used  instead  of  payload.  The  mission  for  the  Observation 
ship  is  contained  in  Tables  I  and  II.  Other  data  which  differs 
from  the  Utility  Model  is  as  follows: 

DL  (disc  loading)  =  4  lb/ft2 
TS  (tip  speed)  =  650  ft/sec 
BF  =  0  (See  Table  III) 

ITR  =  0  (See  Table  III) 

BRK  =  0  (See  Table  III) 

TAF  =  10  (See  Table  III) 

TPY  =  25  (See  Table  III) 

KLG  =  .0157  (See  Table  III) 

AG  =  0  (See  Table  III) 

KNAL  *1.39  (See  Table  III) 

The  cost  effectiveness  results  of  a  run  of  the  Observation 
model  are  shown  in  Figure  35 . 
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APPENDIX  I 

ZODIAC  II  PROGRAM  LISTING 


IMPLICIT  INTEGER  IA-UI.REALIV-ZI 

DEFINE  FILE  411000. 102, U.FI4I  _ _ 

CEFINE  FILE  51101 , 20.U.FJ 51 
DEFINE  FILE  6(20. 905. L.FJ61 

_  INT£CER«2  ECLC1CC.1C.4I  .PRTLSTI5C- ) _ 

COMMON  /BUG/  DEBUG 

COMMON  /“OC/  VAR ARY (620 1 . NAM ARY (4001 . ECU.PRTlST 
COMMON  /CCMN/  S  IPCOM. ST  IREG. STPREG.COM (200) 
COMMON  /GEN/  ALbE  T (50 
CIMENSIGN  MOONAM f  5 1 
STPCCM  *  2C0 

- STTREG  *  2C1 

ETPREG  *  400 
CALL  INI T 
CALL  MAIN IN 
CALL  CATAI.S 
CALL  MANSE  T 

- ~~lf  ICE3UG  .EOi  ii  CAir  PRNTSTlll - 

ICO  CALL  MQSIN (N.MC0NAM.MC0NUM1 
IFCN.EQ.C)  GO  10  110 
CALL  CATAIN  ' 

IF  (CE3UG  .EC.  II  CALL  PRNTOTtll 
CALL  STCMQC(MC0NAM,MCDNUMI 

- CO  TC  ICC  -  - - - 

110  CALL  MAINRN 
CALL  ERROR  101 

- CALL  EXIT  ‘  -  - - 

END 


202  1 
202  2 
2C2  3 

202  4 

2C2  5 

202  6' 
2D2  7 

2C2  e 
202  9 

202  10 
202  11 
2C2  12 

202  13 

202  14 

“202  15 

202  It 
202  17 

“202  '  16 
ItZ  19 
202  2C 
202  21 
202  22 
202  23 

- 2 02" 24 

202  25 

202  26 

- 2C2‘  27 

1 02  2B 


— - -  -  - -  . - - —  - - 

—  — 

— .  — ,  — -  - — . — 

iuaaattiKE  imit 

I  NT 

1 

IMPLICIT  INTEGER  t*-U) .REAL CV-2) 

I  NT 

2 

integer*?  eol'C1oc.io.4),prtlst(5oi 

11  “ 

—  — 

INT 

3 

COMMON  /GEN/  AL8ET150I 

INT 

4 

COMMON  /MOO/  VARARYT62C1 .NAMARY14001 .EGU.PRTLST 

INT 

5 

COMMON  /t GMM.n/  5TPC0M,  ST  IEEG,  STPREG.CWt  12001 

INT 

—  & 

COMMON  /T*3/  T&SLI20.21 

1NT 

7 

CIMSNSIGN  L3ET ( 5C 1 

INT 

E 

DATA  L8ET  /•=  «  -  1“ "  *  _  J 

r 

♦ 

1  .  VINT  0 

A3765432102Y 

X 

W  V  U  T  INT 

10 

SSRCPCNMLKJI 

H 

6 

f  E  C  C  INT 

11 

C  “5  A  •/  “  ‘ 

1  ‘  INT 

12 

CO  ICC  I  *  1.620 

1  INT 

13 

loo  viiURYm  -  o 

1INT 

14 

13ETI21  =  21C1362752  ~ 

INT 

15 

LSEIC41  *  163UCC7C4 

INT 

16 

CO  110  1  *  1,50 

list 

17 

“TIO  **L8£7  (I 1  i  LBETII.  "  - - 

'  — ~- 

■  ■  ■ 

”1  INT 

13 

CALL  ITCHK 10.-71 

INT 

15 

CQ  I2C  I  *  1.1C0 

1INT 

20 

CO  120  J  *  1.10  “  -  - 

2INT 

21 

CG  120  K  »  1,4 

3IST 

22 

120  EOUIt.J.Kl  »  0 

2 1ST 

23 

EC  LC 1*1 .11  *  —1 

laT 

24 

CO  130  1  *  1.400 

1INT 

25 

130  NAMARY1I1  *  0 

1INT 

26 

-  CO  14C  I  i  1,203  - - — 

—  ~ 

“ 

-  -  -  -  1IftT 

27 

14&  com  ii  *  a 

TINT 

23 

NONE  «  0 

INT 

25 

C».’E  *  1 

■  - - - INT 

'  30 

WIIE  13*11  NONE. ONE 

INT 

31 

CO  150  !  *  1.20 

it  NT 

32 

1 SSL  11.11  *  0 

.  11SjT 

32 

150  TASLt 1.21  «  0 

1  Ini 

34 

RETURN 

ini 

25 

tNO 

INT 

36 

SUBROUTINE  ERROR (N I 
INTEGERS  NER(IOC) 

CAT*  ITNER7101S07 
IF(N  .EO.  C)  GO  TO  110 
kRITE  (3, ICC)  N 

“TOO  FORMAT  *  1 2 1 18 1  •  E  RROR~n717^W^Tlj0RBER“'*7T^^7! 
I  =  I  ♦  1 

IF  <1  .LE.  100  )  NERII)  *  N 

RETURN  ”-  --  . . 

110  kRITE  13,120)  (NERU),J  *  1,1) 

120  FORMAT  (‘1  SUMMARY  OF  ERRORS  •,/, 4313/4313/1413) 

RETURN  ”  ~  - 

END 


ERR 
ERR 
ERR 
ERR  4 

ERR _ 5 

“ERR  6" 
ERR  7 
ERR  8 
ERR  9 
ERR  10 
ERR  11 
"ERR~12 
ERR  13 


SUBROUTINE  MODI N (NCARO, MOCNA ,MOCNUM ) 

IMPLICIT  INTEGER  U-U),REAL(V-Z) 

COMMON* '/GEN/  A»SET(50)* - 

COMMON  /ALL/  VLSTI50) »MGDNAM(30»5) 

INTEGER*2  EOUJ IOC. 10, 4> ,PRTLST(50) 

- COMMON  /MOD/  VARARY { 620) ,NAMARY{400)  ,EQU,PRTIST'. - : 

COMMON  /COMMN/  STPCOH,STTREG,STPREG,COM(200) 

DIMENSION  STATI6C).  NAME (At ,  TEM(80>,NVAR(16) 

- DIMENSION  ARG ( AO ) »HOONA (5)  - - - 

NCARO  >  0 
KOEQ  >  100 

- co-ioor^"i7ioo - 

00  ICC  J  x  1,10 
CO  ICO  K  x  1,4 

- XOU~EQU(t,.l«K) *«  0 - 

EOUt 1*1*11  x  -1 
EQU(2,l,l)  >  -1 

- EQUlltl,AJ  V‘2 - 

CO  11C  I  >  1,400 
110  NAHARYC  1 1  x  o 

- 00  120  I  *' STTREG'.SOO - 

120  YARARYI I )  «  0 
CO  13C  I  *  1,50 

— norpRTLSTm  «c - 

C 

_C _ READ  STATEMENTS  IN _ 

END*0 

1A0  READ! 1, 150, END»AAOJ  STAT 

- T5CrFORMATrfiOAlJ - 

NCARC  *  NCARO  *  1 

IF  INCARO  .EQ.  1)  WRITE  (3,160) 

- I6CTF0RMAr  Cl . EQUATIONS') - 

IF  (NCARO  .EQ.  601  WRITE  (3,170) 

170  FORMAT  1*1  EQUATIONS  CONT. ■) 

- KRnEI3,190)  NCARO.STAT - 

180  FORMAT) IA,3X,B0A1) 

CO  190  I  x  1,80 

- 190~TEMm  »  c  -  - - 

C 

C _ REMOVE  BLANKS  AND  COMMENTS _ 

NCM  x  o 

CO  2C0  K  x  1,80 

- rF~rST*T(KJ^EQr.AtBET(50n — 1 - 

200  IF  (STAT(K)  .EQ.  ALBET(13)  .OR.  NCM  .EQ.  1)  STAT(K)  «  0 
CALL  RMV2ER(STAT,L) 

"X - CHECK  'T  YPE  OF-  STATEMENT - 

210  CALL  COMND(STAT, ;yP,ARG,ERR) 

IF  (ERR  .NE.  0)  GO  TO  1A0 

- rF~T7YP~;EC.“0)  G0  T0“370 - - 

IF  (TYP  .EC.  13)  GO  TO  320 
IF  (TYP  .EQ.  1A)  GO  TO  1A0 

- GO~TO  (  22C  ,2A0  ,250 *260;2607INOf2«ir,TAT5260,'270, 260,  290 17TYK 


EIN  1 
EIN  2 
— EIN  3“ 

EIN  A 
EIN  5 
“EIN  fc“ 
EIN  7 
EIN  8 

EIN - 9* 

EIN  10 
EIN  11 
“1EIN  12* 
2EIN  13 
3EIN  IA 
“3EIN  15* 
EIN  16 
EIN  17 
'  EIN  —  18 
1EIN  19 
1EIN  20 
IE  IN  *  21 
1E1N  22 
IE  IN  23 
IE  IN  2A 
EIN  25 
EIN  26 
“  E IN  27 
EIN  28 
EIN  29 
“EIN  30 
EIN  31 
EIN  32 
“EIN-  33 
EIN  3A 
EIN  35 
“EIN“ 36 
EIN  37 
1EIN  28 
'IE IN*  39 
EIN  AO 
EIN  A1 
“EIN"  A2 
EIN  A3 
IE  IN  AA 
~1EIN  A5 
IE  IN  A6 
EIN  47 
“  EIN  48* 
EIN  49 
EIN  50 
“EIN  ~51 
EIN  52 
EIN  53 
“EIN  “54 
EIN  55 


uoj  I  O  O  O  UUU|  uoo  o  u  o f  uu  u  !  1  boo 


ITERATE  STATEMENT 


"210  MT  -  EQUIl.1.4)  ~ 

IF  IN  IT  .LE.  5)  GO  TO  230 
CALL  ERROR ( 22 ) 


GO  TC  140 

230  EQUI 1 »N IT, 1 1  x  ARGI 1) 
_  EQUI1.N!T»2)  x  ARGO) 
EQUI1,NIT,3) 
E0Utl.N!T,4) 

EQUI 1* 1,41  x 
GO  TO  140 


=  ARGI4)" 
x  ARC  1 5) 
NIT  ♦  1 


IN0RCER  STATEMENT 


240 


EQUtl.1,31  x  i 
GO  TC  140 


M00LLE  NAME  STATEMENT 


“250 


CALL  MDNAHEIK.ARG) 
EQUI 1 • 1 • 1 )  «  K 
M00NLM  x  K 
G0TC  140  - 


ILLEGAL  COMMAND  FOR  MODULE 


260 


CALL  ERROR  124) 
GO  TC  140 


PRINT  STATEMENT 


“270 

280 


CO  280  I  x  1,40 
PRTLSTI  I)  x  ARGIII 
EQUIl.10.1)  x  1 
CO  TO  140  - 


IF  -  EXPRESSION  STATEMENT 


290 


300 

310 


CO  300  I  *  2.NOEQ 
NIF  =  I 

IF  I  EQUI  1,1,1)  .EOT  0)“GtJ  TO  310“ 

CONTINUE 

CALL  ERROR  12) 

CO  TO  140  - 

EQUINIF.2,1)  =  -6 
EQUI N  IF  1 2, 2 )  x  ARGI 1 ) 


EQUINIF,2,3)  *  ARGOT 
EQUINIF.2,4)  x  ARC I 2) 
CO  TO  370 


- 320- 


TABLE  LOOK  UP 

r  «  laoo 


CO  330 
EQ  -  I 


115 


lyffiTf'-"  it  riI,vi^*r  t  ~ 


EIN 

56 

EIN 

57 

ElN' 

“58“ 

EIN 

59 

EIN 

60 

“EIN 

~6l 

EIN 

62 

EIN 

63 

EIN- 

-  64  ~ 

EIN 

65 

EIN 

66 

EIN 

67 

EIN 

6a 

EIN 

69 

“EIN 

“70 

EIN 

71 

EIN 

72 

“EIN- 

73 

EIN 

74 

EJN 

75 

EIN' 

“76 

EIN 

77 

EIN 

78 

“EIN 

“  79  * 

EIN 

eo 

EIN 

81 

“EIN 

“82  - 

EIN 

83 

EIN 

84 

“ElfT-BS  “ 

EIN 

86 

EIN 

67 

1EIN 

“88  ~ 

1EIN 

89 

EIN 

90 

“EIN 

“91“ 

EIN 

52 

EIN 

53 

‘  EIN 

94“ 

IE  IN 

95 

1EIN 

56 

"1EIN 

“97“ 

1EIN 

98 

EIN 

59 

'  EIN’ 

ICO- 

EIN 

101 

EIN 

102 

“  EIN 

1C3 

EIN 

104 

EIN 

105 

“EIN 

1C6  ~ 

EIN 

1C7 

EIN 

108 

“IE  IN 

109 

IEIN 

110 

buuUu 


330 

IF  (ECUU.1,1)  .EQ.  01  GO 
CONTINUE 

o 

U) 

$ 

1EIN  1 
IcIN  : 

3*0 

CALL  ERROR'  !3f 

GO  TO  1*0 

CO  350  I  *  1,6 

ClN 

EIN 

1EIN 

NVAR I i r  =  C 

IE  IN 

IF  (STATU )  .EQ.  ALBSTUl) 

GO  TO  360 

ie:n 

350 

NVAR  (I)  =  STATU  1 

IE  IN 

360 

CALL  NAMINVAR.K)  ’ 

EIN 

EQUIEQ.lt 1 )  =  -1 

EIN 

EQUI EC, 1,3)  =  3 

EIN 

ECUI3C,2,1)  =  -? 

EQUteC.2,2)  =  »-RG<3) 

"EQUl  EC.2.  3  >  *  ARGI*) - 

IF  ( ECU I £Q ,2.3)  .EQ»  05  EQU(EO*2.3t  »  *01 
EQUIEC.2,*)  *  K 
NVARU)  =  ALBET, 23-ARGI21 I 
NVARU)  =  C 
CALL  NAMINVAR.KJ 
“EQl>(  SC.3. 1 )  *  -8 
EQUI EC, 3« 2  I  «  ARGI5) 

IF  IARGI5)  .EQ>  0)  E0UIE0,3,2I 

“ECUIECf 3«3)  =  K 
ECUC EC, 3 , * )  x  ARG(l) 

CO  10  1*C 


*01 


SEARCH  OUT  SYMBOLS  AMO  NAMES 
SYMBOLS  ARE  REPLACED  BY  THE  FOLLOWING  NUMBERS 
-*3-l,-=;-2,*=-3./=-«.***-5ir*-6*)'=-7,«-B 


E IN  123 
EIN  12* 
E IN  125 
EIN  126 
EIN  12? 
EIN  12S 
EIN  129 
EIN  130 
EIN  131 
GIN  132 
EIN  133 
EIN  13* 
EIN  135 
EIN  136 
EIN  137 
EIN  138 
EIN  135 
EIN  1*0 


370  NP_  =  1  _  __  _  _ _  _  __ 

38C  I  *  I  ♦  1 

390  IF (  I  .GT.  L  I  GO  TO  *30 

- IFf STATU!"  .EO.  “ALBETIBIl  GO  TO  *00  - * - 

IF  f  STATIII  .LI.  0  .OR.  STATU  I  .EQ.  ALBET  112)1  GO  TO  *00 
NARG  =  STATU) 

- CALL  SYMBOL  I  NARG)  . . .  - 

IF  (NARG  .EQ.  -3  .AND.  STATU  +  ll  .EO.  ALBET (7))  NARG  «-5 
IF  I NARG  .EQ.  -5  .AND.  STATU+2)  .EO.  ALBETI5) )  NARG  *  -9 

- TEMINP)  *  NARG - - -  *  ~ 

NP  *  N?*l 

IF  ( NARG. EC.  -5)  1*1  +  1 

- IF  INARG  .EC.  -91  1*1  +  2  ’  . 

CO  TO  3EC 

*00  00  *10  K  *  1,16 

- *10~N VARIK)  =  0 

K  *  C 

NMB  *  0  _ 

- IF  I  STATU  1  .GT.  «LBETT2*I-.-AN0^-STArtn';tT7  *LBETrnmiMB  *_T 

*20  K  =  K  ♦  1 

KVAR(K)=STATU) _ 

IF  I STAT ( I )  .EQ.  AlBETIBI)  GO  TO  *20 


EIN 

1*1 

EIN 

1*2 

EIN 

1*3 

EIN 

1** 

EIN 

1*5 

EIN 

1*6 

EIN 

1*7 

EIN 

1*8 

EIN 

1*9 

EIN 

150 

EIN 

151 

“EIN 

152 

EIN 

153 

EIN 

15* 

EIN 

155 

EIN 

156 

IE  IN 

157 

IE  IN 

158 

EIN 

159 

EIN 

160 

“EIN 

161 

EIN 

162 

EIN 

163 

““EIN 

16* 

EIN 

165 

116 


IF  (STATtll.  LT.  0  .OR.  STATU  I  .EQ.  AL6ETU2)  I  SO  TO  420 
IF  (NVAR(K)  .EQ.  ALBETI45I  .AND.  NNR  .EQ.  I)  GO  TO  426 
CALL  naViNYAR.iO 
1EM  INP)  *  K 
NP»  NP  ♦  1 
GO  TO  390 
430  CONTINUE 

_ CALL  SETUP tTEH.NCAROl _ 

PREPARE  FOR  NEXT  STATEMENT  OR  RETURN 
GO  TO  140 

"V40*~RET?jRN . 

END 


EtN  166 
E1N  167 
EIN'  rsjr 
E IN  16$ 
EIN  170 

“Eifrmr 

EIN  172 
EIN  173 
EIN  174 
EIN  175 
EIN  176 
EIN  177* 
EIN  178 


SL8R0LTINE  NAMIN.K) 

IMPLICIT  INTEGER (A-UI.REAKV-Z) 

1NTEG£R*2  EQUU00.10.4) .PRTlSTISIH 

COMMON  /MCC/  VARARY I62C )  ,KAMAaY(400)*EQU»PRTLST 

COMMON  /CO MMN/  STPCSM.Sl?TRSG«STPREG.C0Mt200) 

COMMON  /GEN/  ALB  ET  ( i'",  I  ~ 

DIMENSION  N 1 1 6  ) 

CHECK  TO  SEE  IF  N  IS  A  NAME  OR  A  CONSTANT.  - 

_ IFlNttl.GE.  ALBET ( 231  .AND.  Mil  .NE.  ALBETI8))  GO  TO  180 

N  IS  A  VARIABLE  NAME 

CALL  NAMCMP|N»NAME.NC)  _  _  -  - 

IF  (NC  .EO.  01  GG  TO  120 
_ CO  ICC  I  *  I.STPCOM _ _ 

IF  CCCMU)  .EO.  NAME  .PR.  COMM)  .Ed.  Oi  GC  TO  110 
100  CONTINUE 

call  ERROR  III  - - -  - - 

110  IF  tCGMtO  * EO.  0)  VARARY { L I  *  123.459E-15 

_  CON (LI  =  NAME 

6AMAR Y( L )  *  SAME 
CO  TO  1U 

120  CC  5  TO  I  =  I.STPCOM  _ _ _ 

IF  (NAKARYM)  .60.  NAME)  GOTO  170 
IF  i COM < I )  .go.  o  )  GO  TC  140 

'130  CONTINUE  '  - - - - - 

140  CO  15C  1  =  5YTREC.400 
L  =  I 

IF  INAMARYM)  .EC.  NAME)”'  'GO'  TO  17(T - 

IF  (NAMARYM)  -Ew.  Cl  SO  TO  160 
150  CONTINUE 

’  CALL  ERROR  121  -  - 

160  MMARYIL)  *  NAME 

VARARY(L)  =  123. 4396-15 

170  K  *  L  - - - 

RE  URN 

N  IS  A  CONSTANT. - - 

1EC  CALL  NUMCMPtN.Vl 

L  ,  4d  - - - 

IF  I  ¥  .60.  0)  GC  TO  200 
CO  KC  I  =  402, 6C0 

L  =  I  — - 

IF  ( VAR ARY ( I }  .EC.  V)  GO  TO  210 
IF  ( VARARY ( I )  .EO.  0)  GO  TO  200 

~I5Cr  CONTINUE  “  - - — - 

CALL  ERROR  12 ) 

200  VARARYCL)  =  V 

'  210  K  =  L  - 

REILRN 

END 


NAM 

1 

NAM 

2 

NAM 

3 

NAM 

S 

-* 

NAM 

5 

NAM 

6 

NAM 

7 

NAM, 

8 

NAM 

~  5" 

NAM 

10 

NAM 

11 

~  NAM 

12 

NAM 

13 

NAM 

14 

NAM 

~  15' 

NAM 

16 

1NAM 

17 

INAM 

18  ' 

1NAM 

19 

INAM 

20 

NAM 

‘  21 

NAM 

22 

NAN 

23 

NAM 

-  2<- 

NAM 

25 

INAM 

26 

INAM 

”27" 

INAM 

28 

IMAM 

29 

'INAM  33 
1NAH  31 
1NAM  32 
IN AM  33 ' 
1NAM  34 
IN AM  35 
NAM  36 " 
NAM  37 
NAM  38 
‘  NAM ~ 35 
NAM  40 
NAM  41 
“  NAM  “42” 
NAM  4  3 
NAM  44 
‘  NAM  “45 
NAM  46 
1NAM  47 
“INAM  “  43 
1NAM  49 
1NAM  SO 
“INAM — 51“ 
NAM  52 
NAM  53 
~  NAM”- 54 
NAM  55 
NAM  56 


. . . . . I . . . . . . . ’J»4 . . 


SUBROUTINE  SETUP (S.NCARO) 

IMPLICIT  INTEGER  (A-U),REAL(V-2) 

INTEGERS  £9U(100,l0,4),PRTLSf(50l 
H«TEG£R*2  T£.“U0,4I 

COMMON  /M OC/  VARARy(620),NAPARV(400),ECU,PRTLST 
COMMCS  /GEN/  ALB  E I  (50  ' 

DIMENSION  SI 80) ,1  EMI (80 1 , TEM2 (80 1 

NS  =  J  _ 

'TVAR  =  603 
CO  11C  1=  1.8C 
1EM2U)  =  0 
CC  12C  I  =  1.40  '  ’ 

CO  12C  J  *  1.4 

TEHU.J)  =0  _ 

FIND  LOCATION  FOR  NEXT  EQUATION 

“CO  130  1=  1,100  ” 

NE  =  I 

IF ( EOL 1 1,1,1)  .EC. 01  GO  TC  140 

CONTINUE  '  “ 

CALL  ERROR (31 

“FIND  INNERMOST  SET" CF“PARENTHESE5T - 

NPAR  -  0 

"FNPAR  *  0  .  ‘ 

CO  ISC  J*  1.80 

IF  (S(J>  .EC.  -61  N.  s  NPAR  ♦  1 

~1F  !S(J1  .EQ.  -71  NPA*t  =  NPAR"^  l 

IF  .NPAR  .IT.  0)  CALL  ERRGRI4! 

IF  (HNPAR  .LT.  NPAR)  HNPAR  *  NPAR 
IF  (HNPAR  .EQ.  0)  GO  TO  310 
CO  160  I  =  1.60 
TEMl(I)  *  C 

NPAR  =  C  - - - 

CC-  1  TO  J  =  1,80 
X  *  J 

IF  IS1J)  .EQ;  -61  NPAR  »  NPAR  ♦  1  -  - 

IF  tSUI  .£0.  -7)  NPAR  a  NPAR  -  1 

IF  (NPAR  .EQ.  HNPAR)  GO  TO  ISO 

“CONTINUE  ~  *  - 

SIX)  =  TVAR 
X  *  X  ♦  l 

THISVR  =  TVAR  ~  ' 

TVAR  =  TVAR  ♦  1 
CO  ISO  J  *  1,60 

IF  (SIX)  .EQ.  -7)  GO  TO  200  ”  '  “  ~  ' 

TERl ( J)  =  SIX) 

SIX)  =  0 

X  =  X*'  1  ~  - 

SIX)  a  0 

CALL  RNVZER(S.N) 

K  =  K  ♦  1  “ 

:  CO  22C  1=  l.X 


SET  1 
SET  2 
SET  3" 
SET  4 
SET  5 
SET~“”  6  ~ 
SET  7 
SET  8 
“  SET  "  5 
1SET  10 
1SET  11 
‘  1SET  12 
2SET  12 
2SET  14 
'  SET  15 
SET  16 
SET  17 
1SET  18 
1SET  19 
ISET  20 
ISET  21 
SET  22 
SET  23 
SET  24 
SET  25 
SET  26 
SET  27 
ISET  26 
ISET  29 
‘  ISET  30 
ISET  31 
ISET  32 
SET  33 
ISET  34 
ISET  35 
SET  36 
ISET  37 
ISET  38 
ISET  35 
ISET  40 
ISET  41 
“ISET  42 
SET  43 
SET  44 
~  SET  45 
SET  46 
ISET  4? 
“ISET"  48 
ISET  49 
ISET  50 
ISET  51 
SET  52 
SET  53 
SET  54 
ISET  55 


IF  IIENIIII  .NE.  -5  .AND.  TEKim  .NE.  -91  CO  TO  220 
TEM|NS» 1 )  *  T EH  1(1) 

'  ~7E*tNS,2)  *  TEKld-11 

TEMINS.31  *  TEM1(I»|) 

1EMINS.*}  *  TVAR 

- T E«  1  i  I-  !  i T VAK  - - 

TEM1U)  -  0 
TEHKIM1  *  0 
TvAR  =  TvAR  ♦  1 
NS  *  NS  ♦  1 
220  CONTINUE 

CALL  (MVZERCTEMl.IO - 

A  »  A  ♦.  1 
LEN  =  0 

KS  *  1  "  '  ~  ‘  ~  “  - 

NTERM  =  0 

IF  ITEKllll  .Li.  Cl  KS  «  2 

- 00  270  I  *  KSTX - - 

IF  (lEMim  .LE.  0  .AND.  TEHIIl  .CE.  -21  CO  TO  230 
LEN  =  LEN  ♦  1 

- TEH2CLEN 1"=  TEHITIT - 

IF  (LEW  .EC.  It  ST  «  t 
CO  IC  270 

'230  NTER*  *  NTERH  ♦'! - - - 

IF  (LEN  .LE.  It  CO  TO  260 
AJ  *  1-1 

CO  2*0  JK  *  ST.KJ - 

2*0  lENllJAl  *  0 

1EHHI-11  *  TVAR 

"  'CALL  TERNI TEf'.»TEF2»tlS'irCE1l»TVIR J - 

CC  2SC  12  «  l.ao 
250  TEH2II2  1  *  C 

760  LEN  *  0 - 

270  CONTINUE 

CALL  RNV2ERI IEH1.KI 

—  CALL  CATF|RITEN,TEI»I,7fTERrrmiSWi1IS1 - - 

IF  IhNPAR  .GT.  01  GO  TO  1*0 
280  EQUINE. 1.11  «  -1 

EQUINE, i.*l  *  NCARtT  - 

K  *  1 

IF  IECUINE,2»11  .EQ.  -61  K  •  K  ♦  l 

NS  »  NS  -l - - - 

CO  2CC  I  *  l, NS 
K  «  K  ♦  1 

- CO  2 <50  J  *  1,* - - - - - 

290  ECLINE.A.J)  *  TERII.Ji 
IF  II  .EQ.  NS1  SC  TO  300 

- IF  IK  .LT.  101  TJO  TD'300 - 

A  *  1 

EQUINE, 1,31  *  10 

- KE  =  NE  ♦  1  ~ - - 

ECUIKE, 1, 1 1  ■  -2 
EQUINE, 1.*}  *  NCARO 

"300  CONTINUE  ‘  - 

EQUINE, 1,31  *  K 


ISET 

56 

ISET 

57 

ISET 

58 

ISET 

59 

ISET 

60 

lSEr- 

61' 

ISET 

62 

ISET 

63 

ISET" 

t*" 

ISET 

65 

ISET 

66 

SET 

67 

SET 

ee 

SET 

69 

~  SET 

70" 

SET 

71 

SET 

72 

- 1SET"  73  ' 

1SET  7* 
1SET  75 
“  1SET"  76" 
1SET  77 
1SET  78 
~ ~1SET  79 
1SET  60 
1SET  81 
—  2SET  "82  ~ 
2SET  C3 
15ET  8* 

- ISET  85 

2SET  66 
2SET  87 

- ISET"  53" 

1SE1  89 
SET  9C 

- SET"  91 

SET  92 
SET  93 

- SET~ S*  ’ 

SET  95 
SET  96 

- SET— 97" 

ISET  58 
ISET  99 

- 2SET"IC0" 

2SET  101 
ISET  102 

- ISET"I03" 

ISET  10* 
ISET  1C5 

- ISET  106" 

ISET *107 
ISET  108 

- ISET1C5" 

SET  110 


EUBROtTINE  RHV2ER  IN1.NJ 
CIKENSION  Nil  801 
K  «  C 

CO  ICC  I  *  1.80 

IF  INK  1 1  .E3.  0)  SO  TO  100 

K  »  K  ♦  I 

MIK I  *  film 

IF  IK  .LT.  I  J  Kill)  *  0 

loircoNmuE  ~ 

N  »  K 

RETURN 

ENC 


RNV  1 
RPV  2 


Rf*V  10 
ftfV  11 
RKV  12 


123 


SUBROUTINE  GATHER  IT,T1,NT,NV,N) 

INTEGERS  TIRO, 41 

integer  nc«ci~  - - — - 

IF  (NT  .EQ.  1  .AKO.  N  .GT.  11  CO  TO  130 

I  »  1 

"TIN, 11  -  -10  - 

TIN, 21  >  1 

IF  (Till)  .GT.  01  GO  TO  100 

"IFITlfl)  .EC.  -21  TIN,2r*~^I - 

I  *  1  *  1 
TIN, 31  *  Till} 

i  *  r  ♦  i  ■  - - -  — 

T IN, A  1  s  6C1 
N  *  N  *.  1 

~IF  (Tim  .NET  01  GO  T0T23 - 

tin-i.a;  «  nv 

RETURN 

’ tin#  1 1  «"Tim - - 

TIN, 25  -  6C1 
TIN, 35  *  Tit !  ♦  II 

"!!N.A1~~»~  6C1 - - 

1*1*2 

GO  TO  110 

TIN-1, ATTNY - 

RETURN 

ENO 


NAM (I)  «  CAROII) 

190  CAROII)  «  0 _ _ 

KAMI 5)  *  fl 

IF  ICAR0I6)  .NE.  ALBETI l) (CALL  ERROR  161 
200  KS  «  K  ♦  IS 

- CARDIlT-1)  -15 

J  *  C 

CO  21C  I*  K,KS 
- j*j  vr 

KUMIJ)  «  0 
RE  *  I 


20  IN 
20IN 
10IN 
1C  IN 
10IN 
"10IN" 


56 

5? 

'58' 

59 

60 
"61" 


IF"!  CARD!  I ;  .EQ".""0~.OR— CmiT)  1  EC .  "ALBE T I  3 )  V  CO  "T0"2 WT 
KUMIJ)  *  CAROII) 

210  CAROII)  «  0  _ 


"CALL  ERROR  IT) - 

22C  CARCIKE)  *  C 

CALL  NAMCMPINAM.KAME.NC) 

- CAlt  NUMCMPINUM.'X) 

CALL  STORE  I NAME «X. NC) 

230  CALL  RMVZERICARO.NS) 

- CO  TO" ICO" 

260  RETURN 
ENC 


10  IN  62 
2DIN  63 
"20  IN'  66" 
20IN  65 
2CIN  66 
"20  IN  67 
201 N  68 
20IN  69 
"1CIN  70 
1DIN  ?l 
1DIN  72 
"1DIN  —  73 " 
1C  IN  76 
1U  IN  75 
“DIN"  76 
OIN  77 
DIN  7e 


a 


'O  oo 


SUBROUTINE  NUNCMPINUH,X) 

IMPLICIT  INTEGER IA-U5 .REAL! V-Z) 

"1NTEGER*2‘E0UC 100, 10,4), PRTCST1 501 
COMMON  /MOO /  VARARYJ620) *NAMARY(sOOI ,EQU,PRTL5T 
COMMON  /GEN/  AL8ETI50) 

"DIMENSION  NUMI16) 

PINO  OUT  IF  FIRST  CHARACTER  IS  A 


NUC  1 
NUC  2 

"hoc — r 

NUC  4 

NUC _ 5 

"NUC  6" 


SGN  *  1 

1  t  NUN  ID  ,NE. 


AtBET (5) )  GO  TO  100 


"SW  “-1 - 

NUMti)  *  - 26422* • J4 


NUC- 12 
NUC  13 
NUC  14 

- 7INO”0£C1T».IC  >OIKT;exPONEHTr*NO"CONVERT"CWIIHCTEre"TirT)fTESm - NUC  “15 

NUC  16 

ICO  NC*-1  NUC  17 

18 


Kfc=u 

CO  120  I  »  1,16 

IF  (NLM(I)  .EQ,  Cl  GO  TO  130 

IF  f  NtH IT)"~,‘G T,  C  .OR.'NUMII)  .EO.  AUBET  145) )" 

NUMC 1 )»INUMl I )  ♦  2642247041/16777216 


GOTtT'IlG' 


GO  TO  120 

— ITU  IF“INLHJTF~EQ.'  AL8E7I121)  ND=T 
IF  (NIM(I)  .EQ.  AL8ETI45) )  NE  » 
120  «x  =  I 

“  130  "lF"{ND".'EQr=l‘ ’.fcNO.  NE  .EO.  0) 

IF  (HC  .EQ.  -1  .AND.  NE  .GT.  0) 
NP  =  NO  -  l 

- IF- INE '.EQ:  m  GO  TO  140 -  " 

IF  INE  .EQ.  N)  NP  *  NE-1 
NOMINE)  =  c 

- IF  INUMINE  +  D  iGT.lO  )NE  *"NE4l" 

NCX  =  NUMINE>1) 

IF  IN  .EQ.  NE*2)  NEX  *  NEX*10  ♦ 


I 


NO- 

NO 


W*  1 
NE 


- IF  CNLHINE)  .E0."AL6ETI5) I ~N£X 

NP  *  NP  ♦  NEX 
K  *  NE  -l 

T40“X=0  -  * -  - - 

00  150  I  =  1 ,N 

IF  II  .EQ.  ND)^C  TO  150  _ 

Y  ^  NLMI I  * 

XNP  =  NP 

- x  »  X  ♦  Y*(10^0*AXNP) - 

IF  INP  .EQ.  0)  X  *  AINTIX4.1! 
15C  CONTINUE 


NUMNE42) 
-NEX - 


"  NUC 
1NUC 
1NUC 
'1NUC  ' 
1NUC 
1NUC 
INUC" 
1NUC 
1NUC 
'  NUC 
NUC 
NUC 
NUC 
NUC 
NUC 
NUC 
NUC 
NUC 
IUC 
NUC 
NUC 
‘  NUC  ” 
INUC 
INUC 
“  INUC" 


19 

2C 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
3 

36 

37 

38 

39 

40 

41 

42 


- X="X#$GN - 

CO  160  I  =  1,16 
160  NUM II)  *  C 

- RETURN  - - 

ENC 


INUC  43 
INUC  44 
IriUC  45 
INUC  46 
INUC  A7 
'  NUC  “48 
INUC  49 
INUC  5C 
“  NUC ~ 51 
NUC  52 


SUBROUTINE  NAMCMP!NAN,NAME*NCI 
IMPLICIT  INTEGER! A-U I  *  REAL I V-Z I 
TNTE'GER*2  E0U(  IOC,  10.4) .PRTCSTI50J  I 
COMMON  /MOO/  VARARVI620)  *NAMARyt400)*EQU»MTLST 
COMMON  /GEN/  ALBE T(5CI 
TIMENSION  NAMI16I  " 

Pit  •  16**6 


TINO'NAME  LENGTH  " - - 

CO  ICO  1*1,5 

“TFINAMII)  .EQ.’CJ  GO'TITTIO - 

NN*I 

“CHECK  FOR“i  ”  - 

NC*0 

"" IFINAMITT"  ;E0:  ALffETI  STJ  NCi>T - 

IF  INN-NC  ,LE.  4>  GO  TO  120 
CALL  ERROR 031 
'NN'*~NC  ♦A 
f.N  »  NN  -  NC 

PUT  BLANK  SIN  NAME - 

IF  <NN  .EO.  A)  NAME  *  NAM!l«NC>  -  A2107S2 

■'IF”INN  ^LET  31  NAME  -S-TC737A11ZA - 

IF  INN  .LE.  21  NAME  *  NAME  ♦  419*304 
IF  INN  .GT.  1»  -r,C  TO  130 

NAME  i  NAME  A:  16384 "*"NAKri4NC)/Pi6  'F~235 - 

CO  TO  15C 

FICL-IN  CHARACTERS - 

NS*l*NC 

_’..r*NN*NC . -  * - 

IF  (NN  .EO.  A)  NS*N$*1 
CO  1AC  I*  NS,  NT 

NAM!  1 1  *  NANUim6">"Z55 - 

NAME  *  NAME  «  NAMin*l6**(2*fNT-I>) 

CO  160  1  *  1.16 

'NAM!  1 1  *  C  - - 

RETURN 

ENO 


NAC 

1 

NAC 

2 

NAC 

3' 

NAC 

4 

NAC 

5 

NAC 

6 

NAC 

7 

NAC 

e 

NAC 

9" 

NAC 

10 

1NAC 

11 

INAC  12 

INAC 

13 

NAC 

14 

- NAC  15* 

NAC  16 
NAC  17 

- NAC  ~  16" 

NAC  IS 
NAC  20 

-  NAC  21" 

NAC  22 
NAC  23 

- NAC  24" 

NAC  25 
NAC  26 

- NAC"  27" 

NAC  28 
NAC  29 

- NAC  3C* 

NAC  31 
NAC  32 

- NAC-  33 

.NAC  24 
NAC  35 

- NAC  "  36  ‘ 

NAC  37 
1NAC  36 

- 1NAC  39' 

1NAC  40 
1NAC  41 

- IN  AC  4Z~ 

NAC  43 
NAC  44 


ohm . .  wsmin.’giiHi 


SUBROUTINE  STORE  IN, X.NC) 

IMPLICIT  INT£GERtA-U),REAl(V-Z) 

I'N  TESER*  2~£QU  ( 100 , 10 , 4 i ,PRTi$T  f  SOI 

COMMON  /MOO/  VARARYI620) .NAMARYI400) tECU.PRTLST 

COMMON  /CCMMN/  STFCOM.STTREG.STPRE6.COMf 200) 

- - 

C  MRINt  VARIABLE  AND  VALUE 
C 

SRiTE  ISTICO)  N»  X 
100  FORMAT  (SX.A4.*  *  *,1P£13.6) 

IF  INC  .EO.  II  WRITE  (3.110) 

- UfOnFDRMATT  *♦“  *•  I - 

C 

C  CHECK  TO  SEE  IF  NAME  IS  IN  COMMON  AREA 


00  120  I  *  WSTPCOM 
K  •  S 

- IF  ~TN“7E0;'  NAKARY!  I  n—GirTO~TfO - 

120  CONTINUE 

130  IF  INC  .NE.  1)  CO  TO  150 
\R|TE  (3,140) 

140  FORMAT  I •♦*,2BX,*THI$  VARIABLE  IS  NOT  IM  COMMON.  CATA  ICNOREC.'I 
RETURN 

T5lTTO~lEO~I“STTRECr«0 - 

►  *  I 

IF  (N  .EQ.  NAMARYl It)  CO  TO  150 

- IF"(N*MARYIir*.EQ~0)— GOTTO~TTB - - - 

160  CONTINUE 
170  WRITE  (3,1*0) 

RETURN 

190  IF  'VARARVIK)  .EC.  123.4S9E-1S)  60  TO  210 

- write  i3,2coi  vararyiki - 

2CC  FOxMAT  I *,28X, *THI S  VARIABLE  NAS  DEFINED  AS  •,1PEI3,*I 
210  VARARVIK)  >  X 

- BETLRN  - 

ENO 


STR  4 
STR  5 

’STR  <T~ 
STR  7 
STR  ■ 
STR  9“ 
STR  10 
STR  11 
STR  12“ 
STR  13 
STR  14 
“STR  ~15' 
1STR  16 
1STR  17 
nsTR— 1* 
1STR  19 
STR  20 
“  SIR  "  21 
STR  22 
STR  23 
“ISTR—  24" 
ISTR  25 
1STR  26 
"1 STR  '27' 
ISTR  28 
STR  29 
“  STR  "30* 
STR  31 
STR  32 
“  STR-” 33' 
STR  34 
STR  35 
"STR— 36“ 
STR  37 


SUBROUTINE  ORDER! IN) 

IMPLICIT  1NTEGER*2( A-E) »LCG1CAL*1(  FI » INTEGER  I G-U I, REAL! V-Z ) 

- INTEGER*2  EQU(100,10,4T.“PRTLST<50) 

COMMON  /HOC/  VARARYI620) »KANARY(400I .EQU.PRTLST 
INTEGERS  LNOEF  t  2001 

- COMMON  /COMMN/  STPCOM.STTREGTSTPREGTCEKTZCOl 

COMMON  /GEN/  GBETI50I 
CIMENSION  FI620J 

- CO  ICC  I  =  1,620  ~  ' 

ICO  Fill  =  .TRIE. 

_ IN  »  EOUIl  *1,31  _  _  _  _ _ 

SET  IP  LOGICAL  ARRAY. 

- CO  11C  !  *  1.400  " 

110  IF  ( VARARY ( I )  .EG.  123.459E-15  .OR.  NAMARY(I)  .EQ.  0)  Fill* 
CO  12C  I  =  402, 6CC 

'120  IF  iVARARYin  .EO.  01~F (I)“=“TF*LSE. - - 

CO  1 3C  I  =  601.620 
130  Fill  *  .FALSE. 


c  determine  croer  cf  evaluation, 
c 

- C0_140  J  s  2,10 - - - 

CO  14C  J  »  1,3.2 

IF  (ECUI2, I, J)  .LE.  0)  GO  TO  ISO 

'  “140  F( E0U12, I , J) I  *  .TRUE.  *  - 

150  ALPOS  =»  1 
GLPOS  =  1 

- I60“NCFG  =  0  - - - 

NEED  =  0 

CO  24C  I  =  3,100 

-  IF  (EQUd.l.l)  .£07  -2I“TGOTO"230 - 

IF  (EQUd.l.l))  170.270.260 

_ 170  II  =  I  _  _ 

1F(ECU(I1.2,1)  . NE.  -81  GO  TO  180 

IF  ( .NOT. ( F (EQU( 11,2,2) ) • ANO.FIEQUI 11,2. 3) ) .ANO.FIEQUI 11,3, 

-  "A' TO  145  - *  '  - 

F( EOL( 1 1.2.4) )  a  .TRUE. 

GO  TO  220 

- 180"  CO  2CC  K  =  2.10  - - - 

IFIEGU Il.K.l)  .EQ.OI  GO  TO  210 
IF  (.NOT.  F (EOU (II, K, 3)))  GC  TC  230 

- IF  ( ECU  (Il.K.l)  .  EQ.  -10)'  GO  TC  190 - - 

IF  (.NOT.  FIEQUUl.K. 2)))  GO  TO  230 
IF  tEQU(Il.K.l)  .EQ.  -6)  GO  TO  200 

- r9(TF(EQC(Il,K,4) )  =  .TRUE. - - - 

200  CONTINUE 
K  *  K  ♦  1 

- 210“ IF  (ECU! 11*1, lil)  .NE.  -21  GO  T0"220 - 

11  *  II  ♦  1 
CO  TO  180 

- ZZOEQU' GLPOS,  i;ZT“a  12“ - - 

EQU( 12, 1,1)  a  ALPOS 


ORO  1 
ORO  2 
ORD  3  ~ 
ORO  4 
ORO  5 

- ORO - £~ 

ORD  7 
ORO  8 

- 10RC  9 

10R0  10 

ORO  11 

- ORO  “12“ 

ORC  13 
ORD  14 

-  10R0  15 

.FALSE. 10R0  16 

10RD  17 

- 10RD  “18' 

10R0  19 

10RD  20 
ORD'  21 
ORO  22 
ORD  23 

- 10RC~  24“ 

20RD  25 
20R0  26 

- 20R0  ’  27 

ORD  28 
ORO  29 

- GRO“  30' 

ORD  31 
10RC  22 

- 10RD — 33 

10RC  34 
10RD  35 

- 1CR0~  36' 

10RD  37 
2)1) 1G010RD  38 

-  10RC'“3S 

10R0  40 

10R0  41 

- 20RD  '42 

20RC  43 
20RD  44 

- 20RD~ 45 

20R0  46 

20R0  47 

- 20RD — 48 

20R0  49 

10RC  50 

- 1OR0— 51 

10RO  52 
10RD  53 

- 10RC  54 

10R0  55 


. . . . . . 


(no  I  jnnq 


ALPOS  =  12 

glpos  *  12 
*12  =  12  *1 
KCHG  *  NCHG  ♦:  1 
IF  <12  .LE.  m 


GO  TO  220 


CO'  TO  240 

230  NEEO  =  NEEC  ♦  1 
240  CO  250  !.  =  601*620 
'250*F(Ll  *  .FALSE. 

26C  CONTINUE 


"C  CHECK  TO  SEE-! F  AL'C"£Cl'A7TCFiS-HA'VE"  BEEN  U5EC1 
C 

270  IF  (NEEO  . EO.  0)  GO  TO  290 


CHECK  TO  SEE  IF  ANY  ADDITIONS  WERE  WADE  CN  THE  LAST  PASS. 

GO  TO  160 -  - - 


- IF'INCHG'.GTrO) 

CALL  ERROR <9 ) 

CO  TO  320 
260  RETURN 


IF  1NCK0ER  MAS  REQUESTED  CHECK  CRDER. 


290  IF  (IN  .EO.l)  RETURN 
CO  3C0  I  *  3,100 

- - IF  (ECU(I«1,2)  .EQ.  01  RETURN 

IF  I EQU( 1*1*2)  .KE.  I«l)  GO  TO  310 
2CC  CONTINUE 

PETURN  " 

310  CALL  ERROR (10) 

RETURN 

— 320  K  =1  -  -  - 

CC  33C  I  *  l.STPCGW 
IF  (NAMARVUJ  .EC.  0  . 

—  "  LNCEFIK I  ^  T 
K  =  K  ♦  1 
330  CONTINUE 

- CO  34C  I  =  STTREG.4C0 

IF  (NAHARY(I)  .EC.  01 
IF  (Fllll  GO  TO  340 


OR.  FUJI  GO  TO  330 


GO  TO  350 


- LNOEF(K)  =  I  _  -  -  -  -  - 

K  =  K  ♦  1 
340  CONTINUE 

-350~K  *  -  1  '  ~ 

WRITE  (3.3601  (NAWARYIUNOEFI 1 1 1* I  «  l,K) 

360  FORMAT  (M  UNDEFINED  VARIABLES  *  ,/ .10  (5X  ,20  C2X,  A4 1,  /  1) 

-  GO  TC  280 

END 


10RD  56 
IOkD  57 
"10RD  58' 

10R0  59 

10RC  60 
”  10RD  61  ' 
10RD  62 
20RD  63 
20RC  64" 
10RD  65 
CRD  66 
ORD  67 
ORC  66 
ORD  69 
ORD  '  70 
ORD  71 
ORD  72 
ORD  73 
ORD  74 
ORC  75 
ORD  76 
ORD  #7 
ORD  78 
ORC  75 
ORD  80 
1CRD  81 
10RD  82 
1CRC  63 
10RD  84 
ORC  85 
ORC  66 
ORD  67 
ORD  88 
10RD  e9 
10RC  SC 
1CR0  91 
10RD  92 
10RC  93 
1CRD  94 
10RD  95 
10RD  96 
10RC  57 
10RD  98 
10RD  99 
'  ORD  ICO 
ORC  1C1 
ORD  102 
ORD  103 
ORD  1C4 
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SUBROUTINE  RUNNOC 

IMPLICIT  INTEGER (A-O) , INTEGER*2(E) . INTEGERtF-UI «REALtV~ZI 

INTEGER*!  EQU< 100,10,4). PRTLSTIS01 - 

COMMON  /MOD/  V(620) .AAMARYI400) .EQU.PRTLST 

COMMCN  /GEN/  ALBETI50) 

CIMENSSON  I TERY( 4,5 1 • VI TI41  ~ 

DIMENSION  VTAB ( 3  ) 

COMMON  /ALL/  VLSI  150) , MCOAAM! 30,51 
CO  ICC  1  »  2.10  ”  '  "  ' 

CO  ICO  J  -  1.3.2 

IF  (ECUI2.I.J)  .EQ.  C)  GO  TO  110 
“100  V(E0U(2tI »JI I  *  V(EQU(2.I.J»lir 
110  ITR  -  0 

IF  «EQU(1,1.4)  .LE.  0)  GO  TO  130 

- NT  =■  EQU  1,1,41  -  2 

ITR  =  NT 
CO  120  I  «  1 .NT 

- ITERYII.1I  i  0  - - 

VITIII  =  0 
CO  12C  K  *  2.5 

"120  ITERVII.K)  »  EQUIi;i*ITK-^l - " - 

130  NEXT  *  EQUI 1.1.2 1 
CO  320  I  =  1.100 

- K  x  fj£X7  - - 

NEXT  =  EQU (N, 1 ,2  I 
CO  3CC  J  =  2. 1C 

—  "CP  =  -ECUIN.J.U - 

IF  (OP  .EQ.  0)  GO  TO  310 
M  =  EOLIN, J,2) 

-  N2  =  EOLIN, J. 3 1 - : - 

A3  «  EOUt  N , J, 4 ) 

GO  TO  1 140,150.160. 170. 210. 250. 300.240. 230. 2901. OP 

140  VCN2 1  =  Vlllll  4  V1N2I - 

CO  TO  300 

150  VIN31  =  VIMI  -  VCN21 

- "CO  10  300  ■*  - 

16C  VIN2)  -  VIM)  •  VIN2I 
CO  TC  300 

“170  IF  IVIN21  .NE.  01  GO  TO  200 - 

WRITE (3, ICC)  N 

ICO  FORMAT!*  ♦•WARNING  DIVISION  BY  2ER0  IN  ECUAT ION  4,131 

—  _  IFCN2  .IE.  2001  WRITE T3il90r  NAHAKTIN21 - 

190  FORMAT I **• ,50X, *01 VI SOR  WAS  *,A41 

VIN3)  -  l.CEfcO 

CO  TO  300  ‘  '  “  '  - 

2C0  VIN3I  -  VIN11/VIN2I 
CO  TO  3CC 

"210  IF  CVIN11  .LE.  01  WRITE13.220T  H - 

220  FORMAT! •  **  WARNING  A  NEGATIVE  NUMBER  WAS  RAISEO  TO  A  POWER 
AATION  *,131 

-  V1N31  =  A3SlV!Nl)l**V!N21  - 

CO  TO  3CC 

230  IF  IVIN1I  .LE.  0)  WRITEI3.2201  N 

- VIN3r»"AB5IV!NlH**I-VIN2n - 

GO  TO  3C0 


RNE  1 
RNE  2 
RNE  3 
RNE  4 
RNE  5 
RNE  6 
RNE  7 
RNE  8 

- IRNE  9 

2RNE  10 
2RNE  11 

- 2RNE- 12 

RNE  13 
RNE  14 

- RNE- 15' 

RNE  16 
1RNE  17 

- 1RNE~  lfi" 

1RNE  19 
2RNE  20 

- 2RNE '  21’ 

RNE  22 
1RNE  23 

- 1RNE  24 " 

1RNE  25 
2RNE  26 

- 2RNE  27 

2RNE  28 
2RNE  29 

- 2RNE  ~  30“ 

2RNE  31 
2RNE  32 

- 2RNE"  33 

2RNE  34 
2RNE  35 

- 2RNE“36“ 

2RNE  37 
2RNE  38 

- 2RNE*  39 

2RNE  4C 
2RNE  41 

- 2RNE  42" 

2RNE  43 
2RNE  44 

- 2RNE- 45 

2RNE  46 
2RNE  47 

- 2RNE’  48’ 

IN  EQU2RNE  49 
2RNE  50 

- 2RNE  51” 

2RNE  52 
2RNE  53 

- 2RNE  54" 

2RNE  *5 
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240  VTAB(l)  «  VINl) 

VTABI2)  *  VIN2) 

VT AB <  3 >  -  Vr'IfiK,3«2TT 
INTI  «  VIEOl  ,3,311 
(NT2  «  EQUIN, 3,4) 

Tail  "tablom vta&, fNTlTfNTTTvTEn 
V(N3 )  >  VRET 
GO  TO  310 

T52~CO  TO  ( 2fcC.2?C»2EC)7NT 
2 AO  IFIVINl)  .LT.  VIN2) I  GO  TO  300 
CO  TO  310 

'270TFI  VINl)  .EQ~V(N2)  I  'GO  T0T09 
GO  TO  31 C 

280  IFIVINl)  .GT.  VIN2II  GO  TO  3v'> 

'  GO  TO  310  " 

290  V(N3 i  -  N1  *  VIN2) 

300  CONTINUE 

“310  IF  (NEXT  .LE.  0»  GO  TO "330 - 

320  CONTINUE 

330  IF  (HR  .GT.  01  GO  TO  350 

"340  if-  (EcuiiTioirr  :NE“or-aLTnp«NTOTnn - 

RETURN 

350  CO  35C  1  «  l.NT 
- K  a  I 

ITERYII.I)  =  1TERYI 1,11  ♦  1 
IF  ( ITERYI 1,2)  .NE.  0)  GO  TO  360 

- IF  CITERYIi;il~:iE~ITEIIYTi;iI)~GtrTOT30 - 

GO  TO  350 

360  VR  •  V( ITERYI I, 211 

- IF  ( ITERYI  I,  ir.GT;Tr~G0~T0-370 - 

VITII)  *  VR 
GO  TO  130 

T7(TVRT'a-ABS(VITin-VRT - 

VITIII  «  VR 

IF  (VRT  .LT.  VI ITERYI 1,5)1)  GO  TO  380 

- IF  lABSIVRT/VR)*  .GT2  VIITERYTT,*!  171COT'GOT0~4DC 

380  ITERYII.I)  «  0 
390  CONTINUE 

- GOTO'  34C - 

400  IF  (ITERYIK.D  .LT.  ITERV(K(3)I  GO  TO  130 
CALL  ERROR  1 25) 

- CO  TO  340 - 

END 


2RNE  56 
2RNE  57 
2RNE  58 
2RNE  59 
2RNE  tr. 
2RNE  61  " 
2RNE  62 
2RNE  63 
"2RNE  "  64 " 
2RNE  65 
2RNE  66 
~2RN£  67" 

2RNE  68 
2RNE  69 
"  2RNE  ‘  70 
r>NE  7i 
2RNE  72 
"1RNE  73' 
1RNE  75 
RNE  75 
“  RNE  76 
RNE  77 
1RNE  78 
ms  79 
1RNE  BO 
1RNE  81 
1KNE  f 2 
1RNE  03 
1RNE  84 
” 1RN£  85* 
1RNE  66 
1RNE  87 
”  1RNE  88 
1RNE  65 
1RNE  90 
1RNE  *  91 
1RNE  92 
1RNE  53 
~  RNE  54 
RNE  95 
RNE  56 
"  RNE"  57 
RNE  98 


SUBROUTINE  PRNTOKNAR) 

IMPLICIT  INTEGER IA-U) .REAL! V-2) 

PRT 

PRT 

1 

2 _ 

'lNTEGER*2~£OUllOCaO»<T7Fri5ffl 

PRT  3 

COMMON  /MOO /  VARARYI620) .NANARVI400I .EQU.PT 

PRT 

4 

COMMON  /COMMN/  STPCCN.ST7RE5.STPREG, CONI 200) 

PRT 

5 

IF1NAR“E0.  O)-  GO  T0~250  * 

PRT 

6 

WAITE  (3. ICO) 

PRT 

7 

100 

FORMAT  t///,*  EQUATIONS*//  1 

PRT 

8 

1*  I  '  "  . . 

PRT 

9 

WR1TEI3.120)  I. I  (ECU(I,J,K),K*1,4),J*1,10> 

PRT 

10 

CO  lie  I  *  2.100 

1PRT 

11 

IF  (FCU(I.l.l)  .EC.  01  GO  TO  130 

1PRT 

12 

NST  -  EOUt 1.1.3) 

1PRT 

13 

110 

WRITE  13,120)  !.(<ECU(!.J.K),IU1.4).J»1.NSTI 

1PRT 

14 

120  FORMAT  (/,I3.1X,4I4,5(4X,4I4)/.4(4X,4I4)) 

PRT- 

15 

1?0 

WRITE  13.140) 

PRT 

16 

1*0 

FORMAT  I /////•  CONSTANTS*//) 

PRT 

17 

CO  15C  I  *  402, 6C0  — *  *  - 

- 1PRT 

18  ' 

X  *  l  -  1 

1PRT 

19 

IF  ( vARARY 1 1 )  .EC.  0)  GO  TO  160 

1PRT 

2C 

150  CONTINUE 

1PRT  ' 

21  * 

160 

WRITE  (3.170)  t!,VARARYtlt.l>401.K' 

PRT 

22 

170 

FORMAT  I5ISX.I4.*  «  *,1PE13.6)I 

PRT 

23 

WR  ITEI3.  180  . 

PRT 

'  24 

180 

FORMAT! //////•  VARIABLES*.//) 

PRT 

25 

SIT  *  1 

PRT 

26 

STP  *  STPCCH  - - - 

PRT  ' 

27 

K  *  C 

PRT 

28 

CC  190  f  *  l.STPCOM 

1PRT 

29 

IF  ICON!  I)  .EQ.  Cl  GIT  TTJ~220 

- 1PRT  30  * 

ISO 

X  »  I 

1PRT 

31 

GO  TO  220 

PRT 

32 

ICO 

it  »  0  . 

PRT  33 

CO  21C  I  «  STT.STP 

1PRT 

34 

IF  (NAMARY(I)  .EC.  0)  GO  TO  220 

1PRT 

35 

710 

X  *  I 

IPRT  36 

220 

IF  (K  .EQ.  0)  GC  TO  240 

PRT 

37 

WRITE  13.230)  (I.NAMARVI*),!  *  STT.K) 

PRT 

38 

“23C 

FORMAT  I2C(10(3X,I3,*  *>  "7A417I) 

PRT  39 

240 

IF  ISTT  .EC.  STTREG)  RETURN 

PRT 

40 

STT  «  STTREG 

PRT 

41 

STP  =  4C0  -  -  - 

PRT  42 

GO  TO  200 

PRT 

43 

250 

WRITE  (3.260) 

PRT 

44 

~260 

FORMAT  I//)' 

PRT  45 

CO  270  I  •  1.5C 

1PRT 

46 

x  *  1-1 

1PRT 

47 

IF'  IPTl  n-.EQ^HT  GO*  TCT210 

1PR . 48 

270 

CONTINUE 

1PRT 

45 

280 

WRITE  «  3,250)  (NAMARY(PT (III .VARARYIPT (!)),I*1.K) 

PRT 

50 

-290~FGRRAT  (10(5(5X,A4,’*  *"  ‘71PE13.6T/1  1" 


“PRT  51" 


f-ETURN  PUT  52 

END  PRT  53 


subroutine  cokndis.t.a.er) 
implicit  INTEGER  (A-U).REAL(V-2) 

INTEGER *2  EOUUOO.iO.Al.PRTCSTfSOl 

COMMON  /MOD /  VARARVI62C) .NAMARVtAOCJ.EQU.PRTlST 

COMMON  /GEN'/  AL8ETI50) 

- COMMON  /TAB/  TA3L (20.2) 

EQUIVALENCE  |A(1).ALBET(1>) 

DIMENSION  5(801 »R( AO)  .Cl 10) « NAI 161.  SAViBOl . A(59).C0AT(10 ) 
"  THIS  ROUTINE  CHECKS  FOR  COMMAS’  AND  RETURNS' THEIR  ARGUMENTS' 
ER  «  l  IF  STATEMENT  IS  IS  error 
£R  *  C  IF  STATEMENT  IS  CORRECT 

- T  INDICATES  TYPE 

T  *  C  EQUATION 
1  ITERATE 

-  2  INORCER 

3  MODULE  NAME 
A  RUN  MOO 

- - 5  G£T  - 

£  GIVE 
7  POINT 

e*  common  ~ 

9  REAC 
10  PRINT 

- II  IF  -  G0HTC 

12  IF  -  EXPRESSION 

_ 13  TABLE  LOOK  UP _ 

R  IS  THE  ARGUMENT  LIST  RETURNEO 

- CETA  COAT/ •ITERNCORMOOURUNMCE I  G1 TFP C 1 RtCMMR E A0MWTR*7 

CATA  GTO  /•GOTO*/ 

CO  ICC  I  *  1,IC 
ICO~Cm  *  CDATIII 
T  »  C 
ER  *  1 

* — COUC  I  »  l.AO 

IF  II  .LT.  171  NAII1  -  0 
SAVfl)  =  0 

- SAVII*AC1  -  0  *“  - 

110  SI  II  *  0 

- CHECK  FOR  INITIinZE 

IF  (Sll)  .RE.  AIAI)  .OR.  s'(2)  *NE.  AI36I1  GO  TO  120 

- IF  (  St  31  .XE;’  At *11  .ORI- SIAI- .NE«nH3011  "CO  TC12C - 

IF  (SIS)  .NE.  At All  .OR.  SI 6)  .HE.  AIA91I  GO  TC  120 
IF  I  St 7)  .RE.  A( 36)  .OR.  SIB)  .NE.  A|Al) )  CO  TO  129 

- IF  *St91  .NS.'  A12AI  .CR.'StlO)’ .NT.  AIASIT  GO  TC12C - 

CO  TO  61C 

- CHECK'  FOR  TABLE  LOCK  UP  — 

12C  CO  13C  I  -  1.20 

- IF^TSIIT  TEO.  AtllT  ~CTTTC  lAtr~  '  ’  — 

130  R  *  I 


CMD  1 
CMD  2 
CMC  3" 
CMD  A 
CMO  5 

“CMD  6' 
CMD  7 
CMO  8 
CMD  9 
CMC  10 
CMO  11 

'CMD  ~12‘ 
CMD  13 
Cl-C  1A 
CMO  15 
CMO  16 
CMO  17 

“cmc"  ie’ 


CMD 

19 

CMO 

20 

~  CMD 

21" 

CMD 

22 

CMD 

23 

CMD 

2A' 

CMD 

25 

CMO 

26 

~  CMO 

27’ 

CMO 

2S 

CMC 

29 

“  CMO" 

"  30" 

CMO 

31 

ICMD 

32 

“lCNtr  23 

CMD  3A 
CMD  35 
— 1CMD~36 
1CMC  37 
1CM0  3B 
— 1CMD"39 
1C*D  AO 
CMO  Al 
~  CMD  "AZ 
CMO  A3 
CMC  AA 

- CM0“A5 

CMO  A6 
CMO  A  7 
CMC- A! 
CMO  A9 
CMD  50 
—  CMO  “51 
CMC  52 
1CMD  53 
1CMC  — 5A 
1CMC  55 
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CO  TO  150  CKO  56 

140  K  •  K  ♦  2  CNO  57 

— — irrsiK j .Hr.Ac38)Vo*.?nc^ir7SE;*T44j .~cr. su« 2 jtnfttt 4D Tco“rtn50~  cno  sa 

R  -  K  4  J  CKO  59 

IF  (S(K)  «EQ.  At3A).ANO.StK4l).EO.A|45>)  CO  TC  530  CKO  60 

~C - - 'CMC”  61 

C  CONFRESS  FIRST  FOUR  CHARACTERS  CFO  62 

C  CFO  63 

150~C0  16C  I  «  r.4‘"  '  "  1C.-0  64 

160  Mill  -  Sill  1CHC  65 

CALL  NANCNFIHA.NAFC.MCI  CHD  66 

- IF~TN»*E“.£C.  CTCJ — COTlTfi^RJ - CFO  67 

CO  170  I  -  1.10  1CFO  6B 

IFICt J1.EO.NAN61GC  TO  I 190*210*220. 280.290. 340. 350, 36C. 270. 38C  ).  1CFC  69 

- jfj  —  ~  -  '  - - - - - - 1CFD  70 

170  CONTINUE  1CF0  71 

IFI$ll).EQ.A|43>.AND.St2).EC.At45).AND.SI3).EC.Al30)l  CCTO  390  CFO  72 

- IFISmi£aai41I.ANC.SI2).EC.Af441l— C0'TtT39C - CFO  73 

ER  *  0  CFO  74 

CO  18C  I  «  1.80  1CFD  75 

IF  CStn'.EOlAIiVr  RETURN  ■'  1C«C‘  76 

lec  continue  icfo  77 

ER  *  1  CFC  78 

RETURN  CFO  79 


c 

c _ 

ITERATE  STATEMENT 

CNC 

CNO 

t 

Rill  * ON - 

DEFAULT  «  0 

CFD 

c 

RI2)  »  FRQN 

DEFAULT  »  1 

CNO 

c 

RIB)  *  TINES 

DEFAULT  -  50 

CNC 

c 

— Rt4r‘i>7ut — 

DEFAULT  »  51 - 

"  CFO 

EC 

81 

82 

83 

64 

•5 


C  RI5J  *  ATOL  DEFAULT  •  C 
C 

~T»anFcsr5nNE.»rw  .gr.  sir  jiHETA  fiornjR'^STTr.NE.Ai  451  r  return 
t  *  1 

CO  2CC  I  -  1.6 

— 260~ Sill  T>~C - - 

SI  71  *  At  3 ) 

cm  -  Ai3i 

- CAHTRHVZERir.Tn - 

c 

C  F1NC  FROM 

'C - - 

CI2I  •  AI44I 
C ( 3 1  -  A 1 32 1 

- CT4r~-  *  1 35  J - - 

CISI  •  *1371 

CALL  CONFNCIC.S.S.im.FS.l) 

- R  ( 2  T  VARIRYINNI - - 

C 

C  FIND  TINES 
C 

Cl  2)  -  At3C> 

CI3)  *  A 141) 

- C(4I~-— *{37) - - - 

CIS)  «  A 1 45) 


CFD  86 
CFO  87 
CKO  EE 
CND  89 
1CND  90 
1CNC  •  91 
CFO  92 
CFO  93 
'  CND  94 
CFC  55 
CKO  96 
CFO  97 
CKO  98 
CNC  55 
CN9  ICO 
CFO  101 
CNC  102 
-CND  103 
CND  104 
CNO  105 
“CNC  ICE 
CNO  1C7 
CFO  103 
"  CNO  1C9 
CFC  11C 


138 


c<&)  -  Ann 

C( 71  •  All» 

"CAnrcoxfKCfCvsrJ7nr,^575cr 

At  3}  -  VARARVtNFI 

FINtr  ATOL  " 

Cf 21  *  A(45) 

"Cl  31  -  AI3C1 
C ( 4 1  *  A 1 35 1 
C?  51  «  A (38) 

"cf  a r  »  Am - 

CALL  COFFNCIC.5.6.NF.PS.O) 

At  51  *  NF 

FIND  FTCL 

CC  21  *  At3«l - 

NV  =  C 

if  IH*  .EQ.  01  NV  «  5 

CALL  C0)'FNC(C,S.4."N*.RS,NV1— 

R 1 41  s  NN 

'FIND  cat 

C(2)  =  A ( 351 
"  CC  31  *  AC3tl 

CALL  COPFNOtC.S. 3tNP.PS. 0) 

sin  «  nh 

“if  tup  .ec:  4orr"*rrr«"o — 
Fft  =  c 
set crn 


c 

c 

- 710 


INCRCER  STATEMENT 

if  isi5i.KE.ri46i.c«^sr6nnfarf4>in3«.sm^«r.Tin 
T  -  2 
ER  *  C 

•  HE  URN  '  '  - - - - - 

FCOULENAFE  STATEMENT 

Rill  -  A 15  1  KItt  CCNTAIIT THE"FGOCCE'NAFE"IH  TOFF 

:  IF  15(51  .HE.  A ( 2f  1  .Cft.  SI7I  „*£.  A(3M  1  RETURN 

~T  =  3 . .  * - - 

CO  23C  I  -  1.83 
A  *  I 

—if  ieiit  ,Eor'Afnnnmr740 - - - - 

i  continue 

CALL  ERROSSiei 

■  CR  *  1  "  “  ‘  - — - - - - 

RE7t*:N 
I  K  *  K  »  1 

FS  -  K  4"T5 - 

IF  IKS  .GT.  8C1  KS  ■  77 


CKO  111 
CPC  112 

*  CFO’ 113* 
CFO  114 
CFO  115 

“CF.D'llt 
CFO  117 
CFO  118 
'  CFO’ 119 
CFO  12C 
CFO  121 

*  CFO  122 
CFC  123 
CFO  124 
CFO  125 
CFO  126 
CFO  127 

"CFO  128 
CFO  129 
C*t-  130 
“CF»!  131 
CFJ  132 
CFG  133 
**  L'FC  134' 
CFO  135 
CFO  136 
"  CFO  137 
CFO  138 
CFO  139 
“CFO  140 
CFD  141 
CFC  142 
"CFO  143 
CFO  144 
CFD  145 
‘  CFD  146' 
CFD  147 
CFD  148 
"CFC  149' 
CFO  150 
CFO  151 
“CFO  152' 
CFC  153 
CFO  154 
~CFO  155 
1CF0  156 
1CFC  157 
“ltHD  158 
1CFD  159 
CFO  160 
-CFO  141 
CFO  162 
CFO  163 
-TFC~1$4 
CFO  165 


P  -  0 

CO  26C  l«K.(C$.4 
n  «  m  ♦  t 

AT  -  1*3 

IF  fKT  .GT.  80)  AT 


80 


l  *  l 
00  250  J  *  WKT 

_  MIL)  «  5IJ)  _ 

250~l  *  L  *  1  ~ 

CALL  *APCPPINA,NP,»C) 
*(*■3  *  K* 


~  IF  fl«*  .GT.  80)  GC  TO  270 — 
IF  ISII**>  .EC.  C)  GO  TO  270 
260  CONTINUE 
'27(f€a  *  c 
«6TL«N 


C 

C7 

C 

c 


- RCl  PCD  STATE PENT - - 

am  -  a  is)  coma  in  the  nape  cf  the  pcoule  to  be  ron 

?ec~iF  is(5r.hE.  Ai25)  7@trsur.iiE.  tniii  return 
T  *  * 

£  *  C 

- ir.'t 

GO  TO  2*0 


CT 

c 

c 


"CETSTATEPENT - - - 

XII!  -  MAC)  CONTAIN  LOCATION  OF  AftCUPEHT 

'~2$o~if  tsi*)  .so.  aid  .e»r~sr5i“r¥cninii  -RETORSi 

1-5 
K  <  3 

-c„  i  0  -  -  -  —  ~  - 

3C0  A  *  A  *  1 

_  co  3ic  i  *jc,eo _  _ 

IFfSm.EQ.  0)  CC  TG  320 
310  CONTINUE 

- 320“ N  »  CP  - - - 

L  -  C 

CO  33C  I  -•*  A,AL 

- k  *  N  **J - - 

MINI  *  SCO 

IF  ISIIi  .NS.  AI3I)  GO  TG  330 

- MIN)  e  0  -  ■  ~  '  -  * 

l  *  L  ♦  I 

If  1C."  .EC.  I)  KAtll  *  AID 

- CALL  K**|NA,4I 

RtL)  =  J 
A  -  CF 


~no  cost  lei  r 

MIN'D  «  0 

SF  ICP  .EC.  1)  SAID 

- call  *»pntir3)~ 

aiL*l)  «  .* 


tit) 


CI*D  166 
1C PD  167 
~1C*0"16# 
1CP0  169 
1CPC  170 
“1CP0~171 
2C«D  172 
2CP0  173 
2C«C  17* 
1CP0  175 
1CPO  *76 
1CPD  177 
1CPC  176 
1CF0  119 
CMJ  160 

c»o  iai 

CPO  162 
CP-0  133 
CPO  18* 
C*D  165 
CPS  166 
Cp0  187 
C.-O  168 
CPC  169 
CKO  190 
CPO  151 
CPO  152 
CPO  153 
CPO  15* 
CpO  155 
CPO  156 
CPO  157 
"  CPO  153 
CPO  155 
1CPC  see 
lCPp  201 
1C*C  202 
OC**0  253 

'  o*c  ;c* 

CPC  2C5 
1CP0  2S6 
"1CPO  207 
1CPC  ZCS 
10*0  2C9 
1CPS  210 
1CPC  211 
1CPO  212 
“ICBO  213 
ICPO  21* 
ICPC  215 
1C PC  lit 
CPO  217 
CPO  218 
~  CpC  215 
C*D  220 


Eft  *  0  CMO  221 

RETURN  CMO  222 


ir~ 

c 

c 

GIVE  STATEMENT 

R(l)  -  R 140  CONTAIN  ARGUMENT  LIST 

.  CMO  223 

CMO  224 
CMC  225 

"C 

"'CMO  226 

340  If  I S 1 5 )  .60.  Aim  RETURN 

CMO  227 

T  *  £ 

r.MD  228 

K  *  4 

CMO  22 5 

CM  *  0 

CMO  230 

GO  TC  300 

CMO  231 

C 

CMO  232 

C 

PO INI  STATEMENT 

CMO  233 

C 

R(l)  CONTAINS  NAME  LOCATION 

CMO  234 

C  ~ 

CMO  235’ 

350  IF  ISIS)  .NE.  A ( 30» I  RETURN 

CMC  236 

T  *  7 

CMD  237 

“Mill  =  SIS)  - 

Ci-D  238 

NA  f  2 }  *  SI  71 

CMD  239 

NA(  3 )  *  SI  6  J 

CMC  24C 

“NA(4J  =  SIS) 

'  CMD  241 

NA ( 5 )  *  0 

CMD  242 

vAll  NAMINA.J) 

CMO  243 

KII)  *  J 

CMC  2*4 

fc*  =  C 

CMO  245 

RETURN 

CMO  246 

~c — 

CHD  2^1 

c 

COMMON  statement 

CMO  248 

NO  ARGUMENT  RETURNED 

CMD  249 

c 

. 

CMD  250 

’60  IF  (SIS!  .NE.  A(35)  .OR.  SI6)  .NE*  AI36II  RETURN 

CMC  251 

1  a  f 

CMO  252 

"  “K  *  "6  "  ‘ 

CMO  253 

CM  *  1 

CMD  254 

GO  TO  30G 

CMC  255 

c 

CMO  256 

C 

REAC  STATEMENT 

CMO  257 

C 

NO  ARGUMENT  RETURNEO 

CMO  258 

T* 

CMC  259 

370  IF  IS15)  .EO.  AIIM  RF.TURN 

CMD  260 

T  a  9 

CMD  261 

EH  *  C  ' 

tMC  262 

RETURN 

CM'  .63 

C 

CMU  264 

*c 

‘  PRINT  STATEMENT .  . “ . 

'CMD  265 

c 

RI1)  -  Ri4C)  CONTAIN  PRINT  LIST 

;HC  266 

c 

CMD  267 

380  I F  T 5 15 1  VKfcT^ AT30J »  RETURN 

CMO  268 

T  *  10 

CMO  269 

CM  =  C 

CMC  27C 

K  s  5 

CMD  271 

SO  TC  300 

CMD  272 

C 

CMD  273 

c 

- IF-STATEMENT — 

CMD'274 

C 

RID  CONTAINS  FIRST  ARGUMENT 

CMO  275 

he  ™ 


*125  CONTAINS  LOGICAL  OPERATOR 
Rl  3  )  CONTAINS  SECONO  GPtRATCR 
FOR  IF-=~f  X^rETSIOK"' TaTc^ENT- i 
FOR  IF  -  CO  TO  STATEMENT  RI4I 

UflO?."FOR  _t 

390  CO  420  I  *  3*80 
K  •  I 

IF  fSID  .EQ.  A 03 )  CO  TO  410 
400  CONTINUE 
ER~  *  ~C 
RETLRN 

LOOX ' FOR“*“SIGN 
410  CO  42C  1  •  K* 80 

- if  t  $ ( ir ^o." ait)} co'rcnrro — 

420  CONTINUE 
F’NO  GO‘T0 
C(ll  *  AI43I 

- un»~ka*r - 

cm  *  A (30 

CI4*  -  A( 351 

CALL  CONFNO(C."5747W7Pry;0rI 
IF  (PS  .GT.  01  GO  TO  430 
CALL  ERROR  (19» 

- er-  =  r - - 

RETURN 

43C  R<4!  *  NM 

- T  -  II - 

CFECK  FOR  ISLT  *121  ■  1 

440  C(1J  »  A  (411 
C(2»  «  AC31) 

- Cl  31  -4-AT3CI - 

C (4 1  *  A (30) 

CALL  COMFNO(C»St4«NM»FS,OI 

- if  ios”Eo;~or_cirTo_45«p - 

RI3I  «  NN 
RI2)  *  1. 

- CO  TO  480 - - 


CONTAINS  POINT  VAR  LOCATION 


CHECK  FOR  I SEO 


R(2)  «  2 


450  Cl 3)  »  AI4SV 
CIA j  «■  AC33) 

- CALrxoNFNinc."s;4»NN;psvor 

IF  (PS  .60.  0)  G C  TO  443 
R( 3 )  *  NN 

- R12!"S«*2 - 

GO  TO  480 


CNQ  274 
CNO  277 
CN0~278 
CNO  279 
CMC  28C 
— CNO  281' 
CKO  282 
ICMO  283 
'1CK0  2 £4 
1CM0  285 
1CM0  286 
CMC  287 
CKO  280 
CKO  289 
"  CUD  290 
CHC  291 
ICMO  292 
1CK0  293 
ICMO  294 
CHD  295 
CMD  296 
CKO  297 
CHC  298 
"  CKO  299 
CMD  300 
CMO  391 
'  CMC  3C2 
CMO  303 
CKO  304 
“  CMO  315 
CMC  3C6 
CMD  307 
CKO  308 
CUD  309 
CMO  31C 
“CMD  311 
CKO  312 
CMD  313 
“CMO  314 
CMO  315 
CMO  316 
“  CMC  317 
CMD  318 
CMD  319 
CMO  320 
CKC  321 
CMD  322 
“CMO  323 
CMD  324 
CKC  325 
“CMD  326 
CMO  327 
CMO  328 
“CKO  329 
CKO  330 


CHECK  FORJSGT  RJ2I  «3 _ 

460  Cm  -  A( 43) 

C ( 4 )  ■>  AOC) 

- CALL  C0MFN0 (C , SV4VNH."*S »ffl 

IF  CPS  .£Q.  0)  GC  TO  470 
RC3)  =»  NM 

"  R(2)  =3  ' 

GO  TC  480 

470  CALL  ERROR <20 ) 

- Eft  *  1 

ReTLftN 

-  FInO  IF  - 

460  C< 2)  -A  144 1 

"  CALL  C0MFNC<C.S7Z7NM.PS70r" 
IF  CPS  .£0.  1)  GC  TO  490 
CALC  ERROR C 21) 

- Eft  =  1  *  - 

RETURN 

490  RC1)  =  NM _ _ 

IF  CT  .£0.  11)  RETURN 


- PUT  EXPRESSION  IN  S 

CC  5CC  I  «  1,80 

ocrsm  ■' savci) - 

RETURN 

- SAVE  EXPRESSION-IN  SAV- 


510  K  *  K  ♦  1 

- L  .  j  -  - - 

to  52C  I  *  K,80 
fAVCL)  *  SCI) 

- 51  I)  =  C'  ‘  - - 

520  L  *  L  ♦:  1 
SCK-1)  *  0 

- 1  =12~ - 

CO  TO  44C 
530  1  =  13 

-  ~K  *  K  ♦  2~ 

CO  54C  I  *  K,80 
1FISCI)  .EQ.  ACll))  LP  *  I 
— 540~IF  t  SCI  ITEOiA { 6 1  r RP  4  I 
SCLP )  =  0 
SIRP)  *  C 

- lP  =  LP  ♦  1  - 

RP  *  RP  -  1 
KV  *  l 

- TCl-S  ~l - 

CC  560  I  *  LP.RP 


CHC 

_ CHO  : 

cmd  : 
cmc  : 
cmd  : 
cmd": 
cmo  : 
CMC 
CMO 

cmo 

cmo 

CMC 

CMO 

CMO 

CMO 

C-MD 

CMO 

-  CMO 

CMO 

CMQ 

CMD 

CMO 

CMC 

-  CMD 

CMD 

CMO 

-  CMC 

CMD 

1CMD 

- 1CMD 

CMC 

CMO 

- CMD 

CMO 

CMO 

- CMD 

1CM0 

1CMC 

- 1CM0 

1CMD 

CMO 

-  CMC 

CMO 

CMO 

- CMO 

1CMC 

1CM0 

- 1CMD 

CMP 

CMO 

- CHO 

CMD 
CMC 
- CMO 

icro 


WBF1W 


£ 


IF  (SU)  .  EQ.  4(2))  SCI)  -  0 
KA(Kl)  *  S(l) 

i p  ( s  rn  Ike  ._o~7and.  rTNE7~ff« — cjrrcrssi 

KACK14D  *  o 
CALL  NAM(NA,K2l 
KV  a  NV  ♦  1  “  ' 

RINV+n  a  K2 
R(2)  *  NV-1 

K1  *  C  ~  '  ~  " 

550  *1  =  Kl  ♦  1 
560  SCI)  =  0 

- lP‘a  IP  -  2 - 

L  a  0 

CO  570  1  a  X.LP 
L  »  L  *♦  I 
570  NAIL)  =  S( I) 

CALL  NARCRP(NA»NARE.NC) 

- co  sec  :  a  1,20 

K  a  * 

IF  I TABL  ( I  .  1 )  . £0.  NAPE)  GC  TC  6C0 

- IF  (TABLU.'l)  .£C7  OF  GO  TO' 590 - 

580  CONTINUE 

CALL  ERROR (2?) 

SETLRV:  “  - - - 

59P  TALL  'K.  1 )  =  NAPE 

IA0LCX.2)  *  k,  _ 

- R( 1 )  a  K  '  '  ■ 

ER  =  0 
RETURN 

■  "«oirR'\r=  * — - 

Ek  =  c 

IF  ITABUK.2)  .EG.  NV  )  RETURN 

- CALL  ERROR (28) - 

ER  =  1 
_ RETURN 

C  INITIALIZE  STATEMENT 

c 

— fltroo  62  C  T  a  T*W - 

620  Sill  *  0 

CO  630  t  =  2.10 

- CCT  F3C  J  S  1,3,2 

PI  =  I 
P2  *  J 

- IF~(E0UC2,?I.P2)  '.EOrOr'GO  TO  640 - 

630  CONTINUE 

CALL  ERROR (31 ) 

— 840~CALL  RMV2ERIS.N67  " 

CO  65C  I  =  1.16 
K  » 

- NAU  I“a  sm 

Sill  a  0 

IF  (NA(  I )  .EQ.  A(l))  GO  TO  660 

65C‘NA( 1*1)  »  U - 

660  KA(K )  a  0 


144 


ICMD  387 
~1CMD~383 
1CMC  389 
ICMD  390 
~1CR0  391 
ICMD  392 
1CHC  253 
’  ICMD  394 
1CR0  395 
ICMD  396 
CPC  357 
CMO  398 
1CM0  399 
'1CRC  4C0 
1CR0  4C1 
CRD  402 
1CR0  423 
1C“C  4C4 
1CRD  A05 
1CRD  406 
lCRD  AC7 

cmc  Ace 

CMO  4C9 
CRD  410 
CMC  All 
CRO  A12 
CMD  A13 
CRD  A1A 
-  C*C  A15 
CRO  A16 
CMP  A17 
CKD  A18 
CMC  A 19 
CMD  A20 
CRD  A21 
CMD  A22 
C RC  423 
’  ICMD  A2A 
1CRD  A25 
ICMD  A26 
2CRD  A27 
2CHD  A28 
2CRD  A29 
2CMC  A30 
2CMD  A31 
CRD  A32 
~  CMD  A33 
JCMC  43A 
ICMD  A35 
* ICMD  436 
ICMD  A37 
ICMD  438 
"ICMD  A39 
CRD  440 


BPffiSS . m . .441 . . . M . B . . . I . . . . . . . - . * . . . . . . . 11 . r . . 


CALL  NAM(NA*K ) 

CALL  RMVZERIS.N6) 

CO  67C  I  *  1*16 
K  n  t 

- Mk  1 1  i^m - * - 

Sill  »  0 

IF*  NAII)  .EQ.  A (3)  .OR.NAII)  *EO.  0)  CO  TO  680 
TTflTNAt  nil's  0 
680  KAIK )  »  0 

CALL  NAMINA.Kl 

- EOLC  2»P  1*P  2'*ir'»“K - 

P2  *  4-P2 

PI  *  PI  ♦  (3-P21/2 
CALL  RMvZER(S*N6l 
IF  (N6  .GT.  Cl  GO  TO  640 
ECU t 2*1*3)  «  P2 

- T~*~ 14  *  ‘ 

ER  *  0 
REILRfJ 

*690  IF  < S(51".LE.' AI24) r~GO^nT700 - 

I  *  C 
ER  *  C 
“ ‘  RETURN 
700  CO  710  I  «  1,4 
710  Sill  *  0 

. CALL  RMVZERfS.KT - 

CO  72C  !  -  1*K 
720  Mill  *  SID 

- NA(K«n  *  X - 

CALL  HAMINA.K? 

T  *  IS 

- 8(11  1C - 

ER  *  C 
RETURN 

- ENU - 


CMD  441 
CMD  442 
C'n6~ii3  “ 
1CMC  444 
1CMD  445 
TCH0^446”‘ 
1CMC  447 
1CM0  448 
1CMD  449" 
CMD  450 
CMC  451 
"CMD  452“ 
CMO  453 
CMD  454 
“  CMC  455  ‘ 
CMO  456 
CMD  457 
“CMO  458" 
CMO  4*5 
CMO  460 
“  CMD  461  ' 
CMC  46? 
CMO  463 
“  CMO  464* 
1CMD  465 
1CMC  466 
“CMD  467' 
1CM0  468 
1CM0  469 
“CMC  47C' 
CMD  471 
CMD  472 
CMD  473* 
CMD  474 
CMD  475 
“CMD"476~ 


■  ft  M  h\mm\) 


SUBROUTINE  COMFNC(C,S,N,NM,P$,R) 

IMPLICIT  INTEGER CA-U),  REALIV-2) 

INTEGER*2  EQUI ICO, iO»*r»PRTLST<50) 

COMMON  /MOO/  VAP.AKYI62CI  ,NAMARY(4C0I  »ECU,PRTLST 
COMMON  /GEN/  ALRETTSO) 
etMENSioN~cU6j;  s(8or~K*n6y 
PS  «  C 

_ NM  *  401 _  _ _ 

100  CO  11C  !  -  ST, 80 
K  •  I 

- in  si  i  mar.  or  co'nrr2o - 

IF  (Slit  «EQ.  cm)  GO  TO  170 
110  CONTINUE 

~12C  IF  IR  .EO.'Cl'  RETURN - 

130  DO  140  I  *  402,600 
It  «  I 

- ir  i  vARAP.m  iTnr.~*n;c  to  iso - 

IF  (YARARVIt)  .EO.  C)  GO  TO  ISO 
140  CONTINUE 

ps  -  -r 

CALL  ERROR (21 
NM  *  0 

- RETORN - 

ISO  VARARYIK)  *  R 
ICC  NM  *  K 
RETURN 

170  ItS  *  It  ♦  N  -  1 
ST  *  R  ♦  1 

- L  -  1 

CC  180  I  *  K.KS 
IF  iSIU  .NE.  C(LI)  CO  TO  100 
T80  L"«  L  ♦~I 

DO  196  !  «  K,KS 
190  Sill  «  0 

- V*  KS  ♦"1 - 

L  *  C 

00  200  I  «  K„SO 

- ST-.-l - 

IF  ( S( 1 1  .EQ.  0  .OR.  S(ll  .EO.  AIBET13) I  GO  TO  210 
L  »  L  4  1 

- NAU 1*  V5TTJ - 

200  Sill  «  0 
210  NAtLUJ  -  C 

- CALL  NAHINA',NM1 - 

PS  *  1 

CALL  RMV2ER(S,K) 

- RETCRN - - 


CMF  I 
CMF  2 

“cmf — r 

CMF  4 


CMF  8 
“CMF"  9' 
ICMP  10 
lCMf  11 
’ICMF  12 
1CMF  13 
1CMF  14 
CMF  “15 
ICMP  16 
1CMF  17 

icmf  ie 

1CMF  19 
ICMF  20 
CMF  21 
CMF  22 
CMF  23 
‘  CMF  24 
CMF  25 
CMF  26 
"  CMF  27 
CMF  28 
CMF  29 
“CMF  *30 
ICMF  31 
ICMF  32 
’ICMF  ’  23 
ICMF  34 
ICMF  35 
’  CMF  “36 
CMF  37 
ICMF  38 
ICMF  *39 
ICMF  4C 
ICMF  41 
ICMF  "42 
ICMF  43 
CMF  44 
_  CMF  “45 
CMF  46 
CMF  47 
“ CMF  ’48 


subroutine  mini* 

IMPLICIT  1 NTEGSR  f  A-tl)  .HEU1V-H _ 

Dimension  stao) .  a uoT.nafIaT 
logical  cm 

INTEGER* 2  MNPGI 1CC.6 > .PRTLST! 100)  .CSTiSTIlflO) _ 

COPMCN  /BUG/  DEBUG 

COMMON  /"A IN/  VA8(620)«NAFSI*00).PNPG,PRTLST,GETLST,MAINHC200) 

COMMON  /ALL/  VLS1!50I.MOONAM(30,5)  _  _ 

COMMON  /GEN /  ALBETI50) 

INTEG£R*2  EQUI IOC, 10, A) 

COMMON  /MOD/  VARARV|fc20).KAMARVI*00),EQU 
CO  ICC  I  *  1.1C0 
CO  103  J  *  l.t 
100  M.NPGU.J)  *  0 

EQ  =  2  ----- 

RC  *  C 
KPT  a  l 
KGW  =  l  ' 

CARD  *  0 

11C  REACt  It  12C.ENCO20)  S 
120  FORMAT! BOA ) ) 

CARO  s  CARD  *  1 

IE  (CARO  .EQ.  1  .OR.  CARO  .EQ.  60)  WRITE  (3«120> 

T3C~ FORMA I  (•!*) - 

CMT»  01 
KRT  a  0 
KB  »  C  ~  " 

CO  1*C  I  -1.80 
K  *  01  -  I 

- iFism.NE.  ALBETinmeRT^ n — : - 

IFISIO.EQ.  ALBETt 13)  .AND.  NRT.EQ.O)  N!  >  K 
1*0  IF(S!K).EQ.  ALBET 150) )  CUT  *  It 

- -  IFICMT  .£0.81)  GC  T0160  - 

KTMS  *  11*-  NB 

KRITEO.ISC)  CARC.(S(I).I  a  1 ,CMT > , ( ALBET! 13 ) , I  -1, DTPS). (SI  I  ),I« 

- A  CMT.NB)  ■  - - 

ISO  FORMAT! SX.I3.2X.120A1) 

GO  TO  170 

'  16C  KRITEI3.15C)  CARO.S  - - - - 

)70  CO  180  i  a  1,80 

180  IFISdl  .EC.  ALBET  (13)  .OR.  I  .GE.CMT)  SC  1 3  *  0 

CALL  3MV2ER 1 5*R )  * - * - - 

IFIK.E9.0)  GO  TO  110 
C 

C  CHECK  FOR  DEBUG  -  - 

C 

IF  (S(l)  . NE.  ALBET !*6) .OR. S (2) ,NE. ALBET 1*5) .OR. SI  3) .ME. ALBET! *8) 

.!JR.S!A).KE.AlB£Tl29j;CR.S«5).fE.Al8ETl*3))  "GC'TOTITO - 

MNPG(l.l)  «  1 
CO  TO  11C 

I90TGNTI  SUE - 

CALL  COMND (S.T ,R >ER) 

IF  IT  .EQ.  0)  GC  TO  3*0 

- IF  (T  .E0.~  1 51  GO  T0~  **0 - 

IF  (T  .NE.  0  .AND.  ER.EQ.  0)  GO  TO  210 


KIN  1 
MIN  2 

~ mTn — X 

MIN  * 
MIN  5 
MIN  6 
MIN  7 

MIN _  0 

MIN  ”9' 
MIN  10 
MIN  11 
IMIN  12' 
2MIN  13 
2MIH  1* 
MIN  15” 
MIN  16 
MIN  17 

'  MIN~ir 

MIN  19 
MIN  2C 
"  MIN~2T 
M1N  22 
MIN  23 
“MIN  26“ 
MIN  25 
MIN  26 
“MIN  27 
IMIN  28 
IMIN  29 
"IMIN  30 
IMIN  31 
IMIN  32 
~  MIN  “33" 
MIN  3* 
MIN  35 
“MIN-  36 
MIN  37 
MIN  20 
"  MIN  “  39 
IMIN  *0 
IMIN  *1 
MIN  *2" 
MIN  *3 
"IN  ** 

_  M  IN  *5" 
MIN  *6 
MIN  *7 
“MIN  *8 
MIN  *S 
MIN  50 
MI N  51" 
MIN  52 
MIN  £3 
“MIN  — 5* 
MIN  55 


147 


non  qnnlo«1r>  I  !  j  '  o  ri  o  I  j  rl  o  o 


2CC  CALL  ERROR ( 26) 

GO  TO  110 

2I(rCG  TG  1 2 20, 200 *2 30723 0*240 *20072 70 .11 0.2 807290 .32572C 
GO  TO  2C0 

_ 22C  MNPGIEO.IJ  *  1 

~  PNPGIEQ.2)  »  ftCIl - 

MNPGIE3.3)  =  RC21 
MNPGC  £Q*A  I  *  R ( 3  ) 

MNPGC E0. 5)  =  RIM  - 

MNPG I  E0  *  6  )  *  R ( 5 ) 

EO  *  EQ  *1 

CO  TC  11C  -  - - 

_  RUN  PCD  STATEMENT  _ 

230  CALL  MDNAMEIMNC'.RI 
PNPGCE0.11  *  A 

PNPGIE0.2I  *  MNU -  -  - - 

MNPGIEO.3)  -  RC 

EO  =  EO  ♦  1  __  __ 

GO  TO  110 

CET  STATEMENT  - -  - - - 

240  AND  =  NGV  ♦  A0 

- PNPGtEO.il  *  5 - -  *  - 

PNPGIEQ.21  *  NGV 

K  *  1 

CO  25C  I  *  NNDiNGV - -  - 

IFlRUi  .EO.  Cl  GO  TO  260 
GETLSTI  I  >  *  R(K I 

“250  K  *  K  ♦  1  - - 

260  MNPG  l EO*  3 1  -  J 
NGV  =  J  ♦  1 

- EQ  *  EO  ♦  1  -  - - *  "  '  - - 

GO  TG  110 

- POINT  STATEMENT -  - -  " - 

270  VARARYIP.il  II  *  EC 

- CO  TO  llC'  - - - 

_ READ  STATEMENT 

2EC  RO  *  1 

_ GO  TC  110 _ _ 

PRINT  STATEMENT 


90  KNC-*  NPT  ♦  AO"  " - 

PNPGCEQ.U  *  10 
MNPGS  E0.2J  *  NPT 

- 1  xl - - 

CO  3CC  I  -  NPT.NfcD 


MIN  56 
MIN  57 
“MIN- 58" 
MIN  55 
MIN  60 
Ml N~  fcl 
MIN  62 
MIN  63 
"MIN'  6A 
MIN  65 
MIN  66 
"  MIN  67 
MIN  68 
MIN  69 
MIN  7C 
MIN  71 
MIN  72 
MIN  73 
MIN  7  A 
MIN  75 
MIN  76 
HIN  77 
MIN  76 
MIN  79 
Mil;  80 
MIN  f  1 
HIN  82 
MIN  83 
MIN  8A 
IMIS  65 
1M  IN  86 
1MIN  87 

imin'  ee 

MIN  £5 
MIN  90 
MIN  91 
m  In  52 
MIN  53 
MIN  5A 
MIN  55 
MIN  56 
MIN  97 
MIN  98 
MIN  59 
MIN  ICC 
MIN  101 
MIN  102 
"  MIN  103 
MIN  ICA 
MIN  105 
MIN  106 
MIN  107 

min  ice 

"  M*N  109 
IMIN  110 


.Vinw  V^IU  '|j 


S3*® 


IF  IRIX}  .EQ.  0)  GO  TO  310 
J  *  I 

Mttltl  IT^'aTkT- 

3CC  K  »  K  ♦  1 
310  MNPGtEQ,31  *  J 
EO  *  EO  ♦  1 
KPT  -  J  ♦  1 
CO  TO  11C 

£ - - 

C  IF  -  GO  TO  STATEMENT 

C 

— r2fl>NPG!EQ,ir=  u_ - 

KNPC  t  EQ, 2 1  =  R{  1  ) 

MNPGtEQ.BI  *  R12I 
MNPGCEQ  .4)  =  R(3J 
KNPGtEQ.51  =  RJA1 
EO  =  EQ  ♦  1 

cc  to  no  ' 

23C  CE9LC  =  MNPGI 1*1) 

RETURN 

3*0  CO  35C  I  *  l.Ifc 
K  *  1 

NAi  I)  *  St  n 

stn  =  o 

IF  INAH1  .EO.  ALBETf  11  1  GC  TO  360 
350  KAI 1*1)  =  C 

- 36C  KAIKi  =0  -  - - - 

CALL  NAKlNA.Kj 
<>NPGIE0,1>  *  3 

-  M.NPGtEO.21  =  x  *  : 

MNP(.tE3,31  a  Mil 
PNPGIEO.O  *  1 
“  PNPGIEQ.51  =  *01 
CALL  RKvZERlS.Ki 
KPS  =  3 

-  IF  tSIl)  .EO.  AL8ETI5H  “GO  TIT  400 - 

370  IF  ISIII  .CE.  At8ETt231  «AN0.  Sill  .HE.  ALBETIBIl 

CO  3fC  I  *  1*5 

KA |I)  =  $111 

IF  tSIII  .EO.  ALBETtSl  .OR.  Stll  .EQ.  ALBET 1 101 ) 

Id  1  =  C  —  -  - - 

39G  KAf I ♦ 1)  x  c 
250  KAIKJ  =  C 

CALL  NAMCNA.KI  ~  '*  -  '  “  '  ' 

KNPGIEQ.NPS)  =«  K 
CALL  RMWfER! S»K1 

-  IF  IK  .GT.  0  .AKCV  KPS  *itT.  51  ~  GO  Tt  sOO - 

EO  *  EO  ♦  I 

co  ic  no 

— ACtriGN  a  1  -  - 

IF  (1(1)  .C-Q«  ALSETI511  S6M  «  -l 

SUI  *  c 

- CALL  RMVZERtStKl - 

PNPG5  EQ. A 1  x  SON 


1M  IN 
1MIN 

Im'IkT 

1MIN 
MIN 
MIN 
MIN 
M  IN 
MIN' 
MIN 
MIN 
~  MIN 
MIN 
MIN 
“  MIN 
MIN 
MIN 
— MIN 
MIN 
Mil 
IMIN 
1M  IN 


CO  TO  *10 


SO  TO  390 


tfjrWft  WA  w>  IwfeumiiVAy  MM/Htiiii  IlMttlli  M  UlOll  K  MS  M  I'.UiKilitKWMUUW 


ttP5  -  S 

Mitt 

>46 

CO  TO  370 

Mitt 

167 

"W 

Ksr~;  a 

MIN 

'166 

CO  42C  I  •  i*K 

1MIN 

169 

uui  -  sin 

IMItt 

170 

~kai  i*ir«T 

IMItt 

171 

IF  ISIM  .60.  AL6ETI45M  MST  «  2 

1M  2(1 

172 

IF  (SI!)  .GT.  AL8ET (121  .AW.  NST  .IE.  Ot  GO  TO  430 

IMItt 

173 

"KST  »  ttST~=T - 

IMItt 

174 

420 

sm  *  o 

IMItt 

175 

430 

CALL  ttAttiNA.Kl 

Mitt 

176 

MttPGIEQ.ttPSI "»  K  "  ' 

Mitt 

17. 

CALL  AMV2e8IS.K) 

Mitt 

178 

ir  (K  .GT.C  .AND.  NFS  .LT.  51  GO  TO  370 

Mitt 

175 

“EC'i  EO  ♦  1  " 

Mitt 

leo 

CL  TO  110 

Mitt 

151 

440 

MKPG1E0.1J  -  2 

Hitt 

lc2 

"7,NPG(E0«2I  *  RM1 - 

Mitt 

If  3 

£0=60*1 

Mitt 

ie4 

CO  TO  110 

Hitt 

165 

"END  ~  * 

'  *MIK 

ie6 

subroutine  nanset 

N5T 

1 

INPLICIT  INTEGER <A-U),*EAL<V-2) 

HST 

2 

INTEGERS  NNPG  1 1 CC  »6!  ,PRTLST  (1091  •GETCST  (1001 

- NST 

3  * 

CONNCN  /NA IN/  VRB  { 620 )* NANS (*001  ,NNPG,P*TLST.GE7CST,NAINNI 200) 

NST 

* 

INTEGERS  ECU t IOC. 10**) 

NST 

5 

CONNCN  /NOG/  VARA»YI620),iaNARYI*e0T.TCU 

nST~ 

r 

CONNGN  /6LG/  DEauG 

HST 

7 

CG  ICC  t  *  l.ACO 

INST 

8 

Vf*e<l  >  *  VARARYl I  1 

Inst 

9 

tco 

KANSU)  *  KAMRMIJ 

1N«T 

1C 

CO  110  t  =  *01,620 

INST 

11 

~U0 

vRbC  l  >  *  vaharyii i 

—  INST 

12 

IF  tCEBLG  .KS.  1)  GO  TO  1*0 

NST 

13 

kRIIl  (3.UC1  (NKPG!1.J),J  *  1,61 

NST 

1* 

CO  120  I  =  2,100  " 

l^ST 

15 

IF  (PKPG(I.l)  .EC.  01  GO  TG  1*0 

INST 

16 

120 

fcS I  IE  13,130!  IKKPGU.JI.J  *  1,61 

INST 

17 

~12C 

FOCnAT  (/,£!*) 

—  NST 

10 

1*0 

RtTU»N 

NST 

19 

END 

NST 

20 

SUBROUTINE  STOPOOIPCOKAM.PCONUPl 

STM 

1 

implicit  integer (a»ui. real! v-2) 

STM 

2 

InTECER»2  EOUlCC.lC.Al.PttUSTlSO) 

* 

STM 

3 

COMMON  /*»0C/  VAR  ARV  ( 6201  •  NAPARY  1 400)  *  EQU, PRTtST 

STM 

4 

CCPMCN  /GE A/  AtBE T 1501 

STm 

5 

Cl PEN SI ON  STI2CI ."CCNAMlSI 

ST* 

e 

NS  =  MODNU"  ♦  1 

STM 

7 

If  JPCOSAPllJ  .?<£.  11  GO  TO  100 

STP 

e 

If(£CU(l,l.l>  .LE.  0)  RETURN 

—  - 

STM 

0 

N5  =  EOtll.1,11  «  1 

STM 

1C 

RE AO  (5*N5)  ISIIII, 1-1,201 

STM 

11 

NSEC  =  STU) 

-  ------  '  *  ” 

STP 

12 

CO  1C  11C 

STM 

13 

ICC 

R5*Cl 5 • 1 1  NPOC.NREC 

SIP 

14 

N4  =  NREC 

STP 

15 

ST ( 6 1  =  NR EC 

STM 

16 

110 

1 YP  *  1 

STM 

17 

’ 

CO  12  C  1  =  1.100.5  -  * - 

“  r  “  “ *  ■" 

~~  "  1STM 

IS 

IfCECUt 1.1.11. £0.01  GC  TO  140 

1SIP 

19 

S  *  I  *  4 

1ST" 

20 

WRITE  {4  •NREC1“G0NLP.TYP,(HEC01J.K 

•L).L=1.4|.Ksl,101*J=I,S) 

1STM 

21 

CO  12C  J  =  I .S 

2STM 

22 

tc  120  A  =  1.10 

3STP 

23 

■ 

CC  12C  L  =  1.4 

4STP 

24 

120 

tCUiJ.X.ll  =  c 

4SIM 

25 

13C 

NR  EC  =  NREC  ♦  1 

1ST" 

26 

140 

STC71  =  NREC  -1 

ST- 

27 

1  YP  =  2 

STM 

28 

wR  IT E  (4 *NR  EC  IPODNU**,  TyP,  1 VARARYI 1 1 

1=201.3001 

SIP 

29 

NREC  =  NREC  ♦  1 

“ 

ST“ 

30 

WRITE!  4  *NR  FC  1**C0M,'P.  I  VP.  (VARARYI  1  1 

1=301.4031 

SIM 

31 

NP£C  =  NREC  ♦  1 

STM 

22 

TYP  =  3 

—  - 

STM 

33 

WRI  IE  |4'NR£C)mC0MJM,TyP,  (V/.RARYC  1 1 

I  =401.500) 

STM 

34 

NREC  *  NREC  ♦  1 

STM 

35 

" 

■"WRITE  14  *NR£C1  "COM.",  TYP  ,  1 VAR4B  Y  III 

1*501. tOCI  _ 

STm 

It 

NREC  =  NREC  ♦  1 

STM 

3T 

TYP  =  A 

STP 

23 

WR I  IE  (4  'NREC  1 MCONUP.  TYP.  (  VAPAP.Y  1 1  J 

I  =  1,1001  ‘  '  - 

*■  STM 

39 

NREC  *  NREC  ♦  1 

STM 

4C 

WR  l  IE  (w  'NREC  1  MGOMJP.T  VP,  (  NAPARY (  1 1 

1  =  101.230) 

STM 

41 

- — 

NREC  *  NREC  ♦  1 

ST" 

42 

WR  1  IE (4 'NR £C )pCDNUP. TYP. (NAP ARY 1 1 1 

I  =  201.300) 

ST- 

43 

NREC  =  NR  EC  ♦  1 

SIP 

44 

— 

WRITE  14 • NREC’ MOO  MJ", TYP,  CNAPARYU1 

1  =  331,400) 

STM 

45 

NREC  *  NREC  »  1 

STM 

46 

TYP  *  5 

STM 

47 

"WR  I T  E  (  4  •  J1R  E C  1 POCNUP  .7  YP  ,  (  PR  Tl  S 1  ( 1 1 

1=1.50)  ~~ 

STM 

43 

NREC  =  NREC  *  l 

STM 

49 

150 

te  ( PCONA**  (11  .EC.  11  RETURN 

STM 

50 

N-GO  =  N"QC  •  1 

- 

- SIM 

51 

CO  tec  I  =1.5 

1STK 

52 

160 

S  (  (  f  1  =  PGCNAPU  1 

1STM 

53 

' 

WRITE  15* NSKSTIII.T  *  1.201 

ST- 

54 

WR  ITEI5'11NV0C.NREC 

STM, 

55 

return 

STM 

56 

END 

STM 

53 

152 


subroutine  hainan 

IMPLICIT  INTEGER (A-bl .REALIV-Z) 

INTEGERS  MNP5(  iCO.-E,)  .PRTlSTIICO)  .GETtSTHOO) 

COMMON  /MAIN/  V  (620). KM  (600). MNPG. PATt-ST,GETLST,MlINN{  2001 
COMMON  /ALL/  VLST(50).MOCKAM(30,5> 

COMMON  /MOO/  VAB (620) .NAMSI400) 

COMMON  /COMMN/  STPCOM, ST TREG.STPTEG.COM (200) 

WRITE  (3, ICO) 

100  FORMAT  !M')  '  -  -  - 

CO  110  I  =  l.STPCGM 
110  NM (II  a  CGM(I) 

,P  .  2  ' 

VLN  =  1.23659E-13 

120  IP  (m\pg(IP.1)  .EQ.  0)  GO  TO  270 
ICO  *  MNPG(IP.l)  "  " 

CO  TO  ( 130.29C.2C0.  ISO.  ICO.  140.140*  160.  IAO.20Q.230.  1*0.  I GO 
*p  ■  I?  ♦  1 

t  TO  120  - - 

130  C4Ll  ITCHKIIP.CGM 

I F ( CON  .£0.  Cl  IP  •  MNPGIIP.3)  -  l 
IP  *  IP  ♦  1  -  - 

CO  TO  120 
160  IP  *  IP  *  1 

CO  10  120  — 

150  MC-NUM  a  MNPG!  IP..21 
CALL  GETMCC(MONLM) 

-  If  !M\pG(IP.3)  .EQ.  II 'CALL  CATA1K  - -  - 

IF  (hn?G(1.1>  .EC.  1)  WRITE  (3*160  I  NOON  AN  t  MOWN,  1 1. 1-1. 51 
160  FORMAT  !*  •••••♦, 5A6I 

CALL  RUNMOC  '  "  ~  ' 

IF  ( MNP Cl  1.1)  .EO.  II  CALL  BUGPRT 
00  170  I  *  l.STPCCN 

*170  VI 1 1  *  VRB  III  - 

IP  «  IP  ♦  1 
CO  TO  12C 

180  S  »  mr.pg1IP.2J  ~  -  '  - - 

ST  *  *NPGt IP. 3) 

*  a  l 

~~  CO  193  1  =  S.ST  - 

VIGETLST(D)  «  VLST(K) 

190  M  ■»  R  ♦  1 

!®  «  IP  ♦  1  - * - 

GO  TC  120 
2G0  S  *  MNPCI IP. 2) 

ST  «  •'NPGIIP.31  - - 

IF  (M.VPG(IP-1.1)  .NE.  1C)  WRITE  (3.2101 
210  FORMAT  l/.SX.  "CONTROL  MOOULEM 

WRITE 1 3,220  INM(PRTLST(m;ir(PRTLS7m?il  *s;stt - - 

22C  FORMAT l 5 ( 5* , 16, •  *  «,lPE13.6ll 
IP  .  IP  ♦  1 

“  CC  TC  120  - - 

230  ISO  *  MNPG (IP, 31 

I F t v ( MNPG (  IP.2) ) .£Q.VUN«CS.y(MNPGt IP, 6) I.EQ.VUN.CR.VIMIIPGI IP.511 

- A  .EO.VUN)  CO  TO  300  *  '  - 

CC  TC  12*0. ISO. 260). IGO 


NAN  1 
HAM  2 
MAN  3 
MAM  6 
MAN  5 
MAN  6 
MAN  7 
MAN  ■ 
MAN  5 
IRAN  10 
IRAN  11 

"  MAN  12 
HRK  13 
MAN  16 

-  MAN  15 
MRM  It 
MAN  17 

“MAN"  18 
MAN  1 9 
MRN  2C 
MRN ”  21 
MRN  22 
MRN  23 

-  MSN  *  26 
MAN  25 
MRN  26 

“  NAN-  27 
MAN  28 
MRN  29 

"  MRN  3C 
MAN  31 
IRAK  32 

"1MRN  33* 
MAN  36 
MAN  35 

_  MAN"  36 
MAN  37 
MAN  38 

’IRAN  “  39 
IRAN  60 
IRAN  61 

“  MAN  *  62 
MAN  63 
MRN  66 

-  MAN  *5 
MAN  66 
MAN  67 

~ MAN'  68 
HAN  69 
MAN  50 

-  MAN~5I 
MAN  52 
MRN  53 

“  MRN ~ 56 
MAN  55 


2«C 

Ir  (yiMt86U8.211.IT.  V(Rk8C(!8,OJH8  -  Y{  R*8C(  18.5  U-l 

KM 

56 

18  •  18  *1 

rm 

5? 

thttittcjo 

M*JT 

~5  S' 

250 

18  ]V(M«t»e:i8,2l).EQ.  V{Mtt8fit!8?4mi8  «  ¥!RM85( 18,51  1-1 

«W 

55 

18  *  18  *  I 

H ft* 

60 

©3  TO* 120 

pm' 

61 

260 

IF  (tf(MX8G(!8.2>  I.OT.  VIH68SU8.«)1)I8  »  VtWt8G(  18.5H-1 

HUH 

62 

18  >  18  »  1 

P*H 

63 

~G0  TO  *120  “ 

R*T 

“66 

2T0 

8ETU8N 

RAX 

65 

280 

lHVt8X8G{18,3)>.E0.VUM.OK.VtRN8Gf  tF,5H.EC.Vl8i!  €0  TO  300 

KM 

66 

”%(k*i8£(  *8;2n  »  v cwc8s nrni r*8*8GTr87«T»vi phpg hp.s n 

#»a*j 

“67 

IF  f8X?Gf !8,2)  .LE.  5T8CC81  ¥*9(8X80118.2 J 1  >  VC.«X8G(!8»2)1 

88N 

63 

18  *  18  «  1 

KM 

67 

'£0  TC  120 

KM  1C 

2«C 

18  «  Vf RN8G( 18.21! 

*M 

71 

CG  TC  120 

KM 

72 

iCOCiLL  EAR0M3VJ 

KM 

73 

CALL  8CL88{v(n,8K8G(lCC*6)*C> 

."88 

1* 

SETUSK 

HM 

75 

“EXC  " 

76 

— 

SUBROUTINE  ITCHKIP.COM 

IMPLICIT  INTEGER  (A-O)  .KEALi V-£> 

ICK 

ICK 

1 

2 

!NTEGER*2  H  I 1C0.6) .PRTLSTI1001 .GETLSTI 100 1 

COMMON  /MAIN/  V  <  c2CJ  »NI  400  .P.PRUST  .GETLST  .“AINMI200  » 
CIMENSION  IT (2.10) «VAL( 10) 

ICK 

ir.K 

ICK 

3 

4 

5 

IF1C0N  .NE.  -7  )  GO  TO  110  ' 

ICK 

6 

CO  ICC  I  *  1.10 

1ICK 

7 

ICC 

im.i>  =  o 

1ICK 

e 

'RETURN  "  . 

ICK  9 

110 

CO  120  I  *  1.10 

1ICK 

10 

K  »  I 

1ICK 

n 

IF  '  tP.6Q.ITd  .  I  H  GOTO  150  ' 

IICK 

12 

120 

CONTINUE 

1ICK 

13 

CO  13C  i  =  1,10 

IICK 

)4 

K  =*  ! 

1ICK 

*5 

IF  UTI1.I  l.FG.  0)  GO  TO  140 

IICK 

16 

130 

CONTINUE 

IICK 

17 

140 

1  f  (  1  •  K }  *  P 

ICK  ' 

ie 

ITI2.K)  =  1 

ICK 

19 

CON  =  0 

ICK 

20 

IF  IH(P,2I  ,EQ.  Cl  HETjkN  ‘  "  " 

'ICK" 

21 

VAL(K)  *  VIM(P,2)I 

ICK 

22 

RE  URN 

ICK 

23 

ico 

IT(2t K)  x  IT*  2tK )  ♦  1 

ICK 

24 

CON  =  0 

ICK 

25 

IF  (M(P,2)  .EG.  Cl  GO  TO  160 

ICK 

26 

VI  *  VAUKI 

ICK 

27 

V2  =  VtMlP.21) 

ICK 

26 

VALIK1  =  V2 

ICK 

29 

IF  (ABSCV1— V2)  .IE#  VtHtFfft) )  1 

ICK 

30 

IF  UBSI  IV1-V21/V2»*10  .LE.  VCMCP,5m  CON  »  1 

ICK 

31 

160 

IF  (  IT: ?,K )  .GE.  MIP.41)  CON  =  l 

ICK 

32 

IF  ICON  EC.  01  RETURN 

-  JC|f- 

23 

III  l,r  =  C 

ICK 

34 

ITI2.KJ  =  C 

ICK 

35 

RETURN 

ICK 

36 

END 

ICK 

37 

SUBROUTINE  GETMOOIMNI 

_ IMPLICIT  INTECER(A-U),REAL(V-2» 

INTEGERP2  EO  (100, lO, A  f , PRTLST  t 501 

COMMON  /MOD/  VARARY(62Q) »NmMARY(A00) ,EQ  .PRTLST 

_ ^DIMENSION  ST C 20 >  ,M0DNAM(5) 

MOCNAMC 11*1  ' 

IF  (ECU, 1.1)  .EC.  MN)  RETURN 

N5  *  MN  ♦  1 

CALL  STOMOC(MOONAM.MN) 

READ  ( 5  *N5  )  iSIfl),!  *  1,201 
KREC  *  ST ( 6 ) 

CO  IOC  I  =  1,100,5  “* 

IF  (NREC  .CT.  ST  IT  1 1  GO  TO  110 
S  *  I  ♦  4 

READ  (A'NRECJ  NAM,Ty,(  (< £0 £ J,K,L1 .l>1.4/,K=l .10) 
100  NREC  *  NREC  ♦  1 

H0_R£AC  (A'NRECJ  NAM.TY, (  VACARYI 1 1, 1*201, 300 i 

NREC  =  NREC  ♦  ”!  " 

REAO  (A ‘NREC )  NAM, TY, (  VARARYl I > , 1*301 ,AOO) 

NREC  *  NREC  ♦  l 

READ  (A  'NR  EC )  NAM, TY, ( VARARY (!), !*A0 1 ,500 ) 

NREC  =  NREC  ♦  1 

READ  (A'NRECJ  NAM,TY, ( VARARY ( I ) , t *501 ,600) 

“ NREC”=  NREC  ''1 

REAC  (A'NRECJ  NAM  ,  I Y , (  NAMARY ( I) , I *1 , 100 1 
NREC  *  NREC  ♦  1 

REAO  (A'NRECJ  NAM.TY, (  NAMARYUI  .  1*101,200) 
r  'C  *  NREC  ♦  1 

k  (A'NRECJ  NAM.TY,  (  NAMARY(  II  ,  1-201,3001 
KR. .  '£  NREC  ♦  1  ' 

READ  (A'NRECJ  NAM.TY.I  NAMARY ( I J ,1*301 ,AQQl 
NREC  =  NREC  ♦  1 

REAO  (A'NRECJ  NAM.TY.I  PRTLST(I) , (=1,50) 

EQ(l.l.l)  =  MN 

IF  (EQ(2,1,1)  .EQ.  1)  GO  TO  120 
CALL  ORCER(INO)  *  -  -  - 

£0(2,1,11  -  1 
120  RETURN 


GTM  1 
CTM  2_ 
GYM  3 
GTM  A 
GTM  _5 
GTM  6 
GTM  7 
GTM  8 
L IM  5 

GTM  10 
GTM  11 
1GTM'  12 
1GTM  13 
IGTM  1A 
1GTM  ”  15 
1GTH  16 
GTM  17 
'GTM  ”18' 
GTM  15 
GTM  20 
GTM  21 
GTM  22 
GTM  23 
GTM  2  A 
GTM  25 
GTM  26 
GTM  27 
GTM  2e 
GTM  29 
”  GTM  30 
GTM  31 
GIM  32 
GTM  33 
GTM  3A 
GTM  35 
GTM  36 
GTM  37 
GTM  38 
GTH.  35 


SUBROUTINE  NONANE (NUN. NAM) 

IMPLICIT  INTEGER (A-U I .REAL (V-Z) 

Common  /all/  vlst<so).noonamoo*31 

C IMENSION  KAHI5) 

co  no  i  *  1.30 

- MM  .  I - 

IF  (NOONAN { I « 1 )  .EQ.  0)  GO  TO  120 
IF  (NAM (IT  .NE.  NCONAM( I ,1) )  GO  TO  110 
CO  ICC  J  *  '1,5  “ 

IF  CNAM(J)  .NE.  NODNANd.J*)  CC  TO  110 
100  CONTINUE 

RETURN  - 

110  CONTINUE 

CALL  ERROR (231 
RETURN  " 

120  CO  13C  I  *  1,5 
130  NOONAN(NUN.I)  «  NAN(It 
'  "RETLRN 
END 


MON  1 

NON _ 2 

NON  "  3 
NON  A 
1M0N  5 

TNON - 6” 

1M0N  7 
1M0N  8 

"2NCN - <T 

2MCN  10 
2 NON  11 
1NDN  12 
1MCN  13 
MON  14 
■  MDN~  15" 
INCH  16 
1HCN  17 
"NON"  18 
MON  19 


SUBROUTINE  TABU  NISI 

TIN 

1 

IMPLICIT  INTEGER  IA-U)rREAUW) 

tin 

2 

C9RM0N-751N7- AliCT 

TIN 

~3 

COMMON  /MOC /  VAR  U2CI.AAM  1400) 

tin 

A 

COMMON  /TAB/  TA8K20.2) 

TIN 

5 

ClMENSfON  "s  ( 80 1 ,C il6 i 7NSZ (31 . VliOOTTlH  100) .V 1 100} .2 <100 ) 

Tin 

6 

Nsm*  »  i 

TIN 

7 

NSC  1 2)  -  1 

TIN 

8 

KS2C3I  »  l  ""  “  ' 

TIN 

9 

cm  *  A (  3 6 ) 

TIN 

10 

cc 2 >  -  A(49) 

TIN 

11 

Ct3T"5'lC37» 

TIN 

12 

CIA)  «  AU5) 

TIN 

13 

CI5)  »  All) 

TIN 

1A 

CALL  C0MFNClC,'S75",NHyPS7Cl - 

TIN 

15 

00  100  I  »  1»80 

1TIN 

16 

IF  (Sill  .EC.  01  GG  TO  110 

IT  IN 

17 

if  "ism  .cO.'  Afim  “[r.'T'i  i - 

- IT  IN 

18 

ICO  IF  IS(I)  .60.  A  mi  RM  «  I  -  1 

IT  IN 

19 

110  NV  *  1 

tin 

20 

L  «  C 

tin 

21 

CO  12C  I  «  LP.RP 

IT  IN 

22 

L  *  L  ♦  1 

IT  IN 

23 

rf i  s  1 1  rr«mm “Trrrv  o - 

IT  IN 

2  A 

CIL)  >  Sill 

itin 

25 

IF  ICtL)  ,N6.  0  »ANO.  *M  .NE.  I  1  GO  TO  UO 

IT  IN 

26 

"II>1>  «  0  " 

ITIN 

27 

CALL  N'JMCMMIC.VR) 

ITIN 

28 

HSZtKV)  *  VR 

ITIN 

29 

L  *  C  - 

ITIN" 

30 

AV  c  NV  ♦  1 

ITIN 

31 

120  SIN  «  0 

itin 

32 

M  *  NV-1 

TIN 

2  2 

kRITE  13.130  NAMINM),(NS2f II.I  l.NTI 

TIN 

3a 

130  FORMAT  I//.5X.MASLE  SA4.3X.*SIZE  »  ST26.I3.T30.I3.T29.* 

.*.T3A,  TIN 

35 

A  T3.T 33. * . * ) 

TIN 

36* 

kRITE  (3.2 SC > 

TIN 

37 

CO  TO  (16C. 160.1 AC) .NT 

TIN 

38 

~ 140"  kRITE"  (3.150) 

TIN 

19 

150  FORMAT  ( *,6X, •  Z* ) 

TIN 

AO 

160  kRITE  13.170) 

(IN 

Ai 

~I7C "FORMAT  I •♦*,i9x,,yrr 

TIN  * 

42 

180  kRITE  (3.150 

TIN 

A3 

193  FORMAT  (  * ♦  S32X,  *X*  I 

TIN 

AA 

NT  *  NSZ(l)*NS2(2)*NSZr3l 

TIN 

45 

NXT  »  NS2I1) 

TIN 

46 

NTT  »  NS2I2) 

TIN 

47 

KZT  «~NSZ(3)  * 

T  IN 

48 

REAC  1 1. 2C€*ENC*3CC)  (X.T ),I>1,NXT) 

TIN 

49 

200  FORMAT  (3E10.5) 

TIN 

50 

kRITE  13.250)  ' 

TIN*" 

51 

kRITE  (3.210)  I X ( I ) , i*l .NXT I 

TIN 

52 

210  FORMAT  I *♦ S27X.Et2X.lMEll.4I .12 I/.26X.8 (2X.1ME11.A) ) ) 

TIN 

53 

I f  CNYT  «EC*  1}  CO  TO  220 

...  -TJN- 

54 

P£AO  ( 1 1 2CC* £NO*300)  IYII 1 »I »l #NYT) 

TIN 

55 

158 


IF  (NZT  .EC.  1)  GO  TO  220  TIN  56 

READ  (1.20C.ENO-300)  (Z(l).t«UN2T)  TIN  5? 

"220  Kr-~i - TIN  58 

NST  •  NXI  TIN  59 

MITE  13*250)  TIN  63 

- C0~2rt  I~«T,NZT - niN- 61' 

IF  (NV  .GT.  3)  WRITE(3,2*0)  211)  IT  IN  62 

IF  (NV  .LE.  3)  WRITE  (3,250)  1TIN  63 

- CC  260  J  -  l.NVT -  2TIN  b<T 

IF  (NV  .GT.  2)  WRITE  (3*230)  V(J)  2TIN  65 

*EAC( 1*200)  (V(K),K>NS,NST)  2TIN  66 

- WRITE  (3,210)  (V(K),KxNS,NSTI - "2T!N”67~ 

AS  »  NST  ♦  l  2TIN  65 

230  FORI**  I  ( •♦  *«14X*1PE11.4)  2TIN  69 

'  "260  "TORMAT  (  /,  2X.1PE11.A)  '  2TIN“70 

IF  (NXT  .NE.  8)  WAITE  (3*250)  2TIN  71 

250  FORMAT  (•  •)  2TIN  72 

”260  AST  *  NS  ♦  NXT  -T - 2TIN  *  73 

K  4,  1  T  IN  79 

CO  270  1  *  1,20  IT  IN  75 

- IF  (TABL(I.l)  .EQ.  01  G0'T0"2«0 - 1TIN  *76 

IF  (TABU  1,1)  .EQ.  NAM(NM) )  GO  TO  290  IT  IN  77 

27C  X  »  I  ♦  l  1TIN  76 

- CaiL  SRR0HI27) - TIN  —  79~ 

280  IA8UK.1)  «  NAM  (AM)  TIN  80 

TABLIK.2)  *  NV  TIN  El 

T90  IF  (  TABL  (K  ,2)  .NE'.  “NV1  CAT-lT'ERRORrZBI - Tllf- 82" 

WRITE  (6*K)  NT.AXT.NVT,NZT*(V(1).!-1,NT),(X(I),I-1,NXT),{Y<I).I*1  TIN  83 

A  *NVT),I2(I)*I*1 *N2T)  TIN  e* 

- REURN  - - TIN"  65 

300  CALL  ERR0RI30)  TIN  86 

RETLRN  TIN  87 

- TND  - - TIN  ”68" 


SUBROUTINE  INTERPIVI  .NX.NV.NZ.VT, VX, YY»VZ,VRETtN2l 
.  CIHENSIONVim.VTlNX,NV»KZI.VXtNXI.VV|NYI.VZ(M2l 

£*nr  getinbivi  ir»  .vt^sstrxitvxc;  wtit - 

C*U.  GET INC! VI (2  I.VY  .NY.NYlt  WO.  N2>2) 

_ C*Lt  CETINOl VI ( 3  )  . VZ.NZ.NZl »VZ0»N2 ,3) 

NTH  "5  0  - - 

ICO  VRET  -  VT INXl «NY1 (NZ1)  ♦  VXD*I VT C NX1*1 , NYl.NZ ll-VT INXl, NYl.NZ 111 
_  IF  IKY  .LE.  l)  RETURN 

VPti  «  VRET  - 

KYI  *  NYl  ♦  1 

_ _ ,VR.?Ijr  VTlKXl.NYl.NZl)  ♦  VXO*lVTCNXl*i,NYl,NZl>-VTCNXl,NYl,KZin 

KYI  »  NY I  -  1  '  - 

VPT2  «  VRET 

_ VRET  »  VPT  l  *  VYCMVPT2-VPT11 

IF-(-K2~.60:i  J  RETURN - - - — - 

IF  INTH  .EC.  II  CO  TO  110 
VPT3  ■  VRET 

NTH-*- 1 - - 

KZ1*  NZ1*  l 
_ CO  TO  100 

TTITlfRET--  VPT2  <TVZC«7VRET=vPT3l - 

RETURN 

ENO 


INT  10 
INT  11 
"INT  12' 
INT  13 
INT  14 

"INr~15" 

INT  16 
INT  IT 
"INT  18 
IKT  19 
INT  20 
"INT  "21 
INT  22 
INT  23 


160 


SUBROUTINE  GET  '.'\Ol  VD.  VA.NT.N.  VI.NTA6,  UVAft )  OIO  1 

ClNENSlON  VA(NT)  OIO  2 

"'COKNCft  /TAB/  TABU2C.2)  GfB  3 

IF  (NT  .GT.  1)  CO  T(  100  010  4 

A  »  1  CIO  5 

vr ,  -c  mo  6 

RETURN  GIO  7 

100  IF  (VO  .LT.  VA( 1 1  OS,  VO  . GT*  VA(NTI)  GO  TO  130  GIO  8 

CO 'I1C  r  *~2,NT'  -  IGIO - 9 

S  *  l-i  1GIC  10 

IF  (VC  .LE.  VAfllT  GO  TO  120  IGIO  11 

“110“  CONTINUE - - lu!0  12 

120  VI  *  ( V0-VA(N ))/(VA|N»lS~VA(NJ>  GIO  13 

RETLRN  G 1C  14 

~13C  CALL  £*R0R(29) - - -  GIO'  15 

VSITE  (3.140)  TABL (N » A8  «  U .NVAfi, VO  OIO  16 

140  F0RKA1  t »  7ASLE  KANE  «  *.A4,*  VARIABLE  NO  ***I2»t  VALUE  WAS  *»  GtO  17 

'  '  A  1PE13.6)  - - GIO-  18 

H  =  NT- 1  GIO  19 

IFIVC  .LT.  VA(ll)  N  *  1  SID  23 

GO  TO  120  '  - - - - Gir  21 


ENC 


G1C  22 


APPENDIX  II 
MODEL  LISTINGS 


UTILITY  MODEL 


— CC'ttJU. Ga.a-gj.aEI  l.yFi  ? t F g s _ 

COMMON  Gal,«a2.RPL0.nPLl 
CI.nmj,,  PTO.PRA.SfC 

—  ££M.*i_£t3_  i*xUa«iEA__ _ _ _ _ _ 

C;»«MyN  «£M,i«P,TAS»NEN,  YAP, SL.NtDPL  ,kC5  ,*Fl  ,CPH,Pk A ~Ht* 
Cr>“tUN  k,PTO,SFO,F 

— i-isr  .At  T.r.AT _ 

COMMON  liiXA.iUXO 
C  UMMUN  mPl Z 

--EIHjtl.  HUE _ _ 

sun  Aj 0  SUE 

Gwh  3  Gk 

-SUN.. MOD— I.  a  ALLPaANCP  XNC:  fQiittC 
SUN  MOD  MAX  RANGE 
SUN  MOl»  TOTAL  FUEL 

f- W  * _ _ _ _ _ 

*OH  SIAT  »6!GHf 

CUS  4Ju  ukOSS  «E1CHT 

- IIELRAJ r  ua  !■■.  FR~«  PnF.  Atru  »  ?n 

»FL1  *  mFL 

='JN  mjo  STOftE  CIO  DATA 
- K--H1  Xi  T .HAT _ 

p- INT  umtmEH ,aFL , «PLO . PTC ,PRA, SfC 
Orthl  PuAT 

- pOJLiI_f».AL2 _ _ _ 

-UN  xgj  n£*  SUE  data 

ns  *  o 


P21tl-L«u 

S  UN  MDu 


SUE 


'■-i.H  s  ua 

. ?.UN_;4ju_I_ii  Atin^ANrs  anc  rsiitc 

3  UN  M-O  MAX  RANGE 
5  UN  MOD  TOTAL  FUEL 

-  G'i_*_vatl _ _ _ 

*CL2  *  «FL 
3  UN  MuU  A.«L  « EIGHT 

_Gk.2_  ~_lim _ _ _ 

°UN  MUU  GROSS  kEIG«T  TaO 

Ual  *  (tm 


_GjUi_5_G« _ _ _ 

"UN  MOO  T  u  ALLOaANCt  ANf  CRUISE 
“  UN  RUO  MAX  RANGE 

J?UN  MOD  TOTAL  FUtL _ 

G«  =  unM 


mFLI  *  kFL 
.RUN  Muu  PATLOAO 
Ga  *  t»k2  “ 

»UN  MUu  ERROR 

JJB  r.  ITk  *  1 _ 

IF  IT"  IS  Ul  MXTS ,  GO  TC  1H3  = 

U  tSS  li  oT  xu.  GCTC  ThC 
SOlKf  Trtat 

ALl.OaT.ITS 

s-’InT  (>m  1  >  Aa  £  m2  •  hE  L  UkPl  I  .FTC.PSA.SFC 
°s  UT  ua2»aF  L2  tM°L2 _ 


DGh 


_i _ 

CPL  =  mPL2 
5 UN*  MJO  PA PC 


COSTS 


Si  *  i 
tOCc  = 
POINT 


..rlNC^A^I  1U£_iiU;£_£0S-J_=_JJiAA_£_U/a£ll. 


0 

fuua_ 


H  *  *1  ♦  1 
>vi  -uu  r A VC  CADS 
UAI_L  u _ 


POI«T  FiVc 
DUN  H<jO  ComS 

Gwh  -  Gw  _ 

RU't  r<Ju  1  C  AU  GRANGE  ASC  CRUISE 

P‘JN  *J0  kaa  range 

-_PUV_»Uw  IfllAL.  HJ£1 _ 


C»  a  u*H 

ITA7  s  Hit  «  1 

RUN  fOw  HAlhl  COSTS 
5  UN  MjJ  hJVfcfe  RP05 
PUN  ■‘JJ.Hc.L 


PRINT  AuCfc. *  N£i .  ACrFh. 
IF  *N  J>ut  A i  *uC  TO  f- ■ 

I  OAA  »  it,  A  A  ♦  1 _ 


- PUF«»PHCV,*PL  ,SGw,*ClF 

.  J* 


ITERATE  fku* 
IOXA  S  1 
ir.yi  a  LOiQ  < 


PALT.TI-SS  *  5 


_L 


ITgnAlc  fnu.1  P  JA  T ,  TIRES  *  2 


Ti*  =  40 
SI  *  10 


31— a— 5 - 

-C«  *  400 

JfH  =  ,1 

.l£tL_r_U0 _ _ 

TiBtc  MHE  *  EuP.SIZE  *  121 
0  1. 5 

.Lai _  - , - 

T18I.5  fcAHE  *  OfctT  ,  SI  2c  *  {<51 

1?.2  k*Ji  60.0  £♦  03  10.C  e*C4  25.®  £*0*  54.0  £*04  iu.j  i*C5  2C.C  S«25  44.0  £*05 

12.5  _ £*wt _ _ _ _ _ — 

1.5  t-03  i. jS  £-031.2  £-039.5  £-045.75  £-CH-o.u  £-045. £  £-045.5  £-04 

Sft  fc-04 

■DiaL-£^A«;-  g-JtlAaL..--S12£-  --til _ _ 

UCJJ.  47&o7.5  373320.  7S35S7.  3.555-*  £«6  i.iia4c*7  1.3  £*5 


1.2 
TEHl  . 

£-2  6.542  £-3  2.5C4  £- 
ai!4  =  -  SI  I*  i  171 

3  2.237  E- 

3  1.319  £ 

-3  1.274 

U.3 

3 

1.5 

. 3 333j 

.32333 

J  5ft. 

*  iJUX.SlZL  =  1141 

0 

50  b* 

1000. 

2030. 

3000. 

4js'u# 

50C3. 

5003. 

wQs** 

«oce. 

1000C. 

uses. 

12l)l7!l. 

i^./z 

_ £4^4  6 _ 

41. as _ 

*7.' 

4.J.4a 

39.44 

37.7* 

25. £7 

21.11 

12. ’’S 

12,5 

IS3LC 

uA«c  *  nPSGt 

SI  £5.  *  1141 

I 

.  1*55 

-32CS 

.j.5iU£.  _ _ 

.ft 50" _ 

.7749 

-544  2 

_ .34,1 

.  *336 

*9635 

.5792 

.59!  > 

.990* 

1.3 

a 

Soo. 

10C0. 
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103.  C 
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*  PL,—  «S1Z£  _  _ 

1.0 

2* 

3.3 

4.  C 

5.0 

6.0 

?«u 

3.0 

—  f*. 

”*•  »r 

iu*  V 

1 1.  C 

1  :«o 

25  ■  v 

30.0 

25.  C 

SO  _ 

T45J.S 

Ni«c  *  1^*0, 

SIZr  *  124, 

141 

-23.  2  j  -17.7* 

__r.12.22 _ 

-5.5  7 

-3.*e 

-1.11 

1.6  7 

4.44 

T.  22 

16.0 

12.75 

le.  55 

13.33 

21... 

23.  « 

24.57 

2S44 

iZ.il 

35.0 

37. -'t 

40.55 

4_>, 

49.11 

49.89 

0 

_ SuC. _ 

100C. 

2000. 

3900. 

_ Sj-rj. 

So03. 

5000. 

7C3J. 

6u  wv» 

90C0. 

1000C. 

11000. 

Lv'UU. 

3 

0 

0 

r 

0 

0 

u 

0 

.00  >6 

_  .0212 _ 

.0273 

.0565 

,0T55 

*  1J*U 

.1444 

.2147 

.  3242 

.5143 

.7235 

.SiS  5  7 

.04 16 

.9810 

170 

0 

0 

0 

c 

0 

0 

0 

•  0062 

.0133 

_**1JJL 

0 

.OilS 

0 

.  Oloa 
.c?9* 
0 

.0233 


.03 Ji 
-  *69* 


0 

.0**3 

-.£6?A. 

0 

•  0596 
-..2322.- 
0 

.  1296 

o 

.*23  S 
0 

,6777 


*3  .07  .078  ,*3QC 

•  95W  .9300  1.0  l.C 

1.0 _ iiC _ UO _ l.C 

T*PStc  JtA«=  «  t«.?,S52E  *16, *1 

1.0  €-32.0  £-3  3.0 

6.0 _ 6jC _ 8^0 _ 10.0 

*28.0  c-*b53.*-  £-*fe7C.C  £-*430. C 

M*.0  £-*55$.;;  E-*5f9,C  i-«U.C 

*75.0  t-*5.>2.U  c-*S?C.C  S-*60g. 0 

*£9.j  fc-*5.>/. 0  £-*530.C  E-*62?.C 

TAslE  :<A*S  *  **?S.S£2E  *  5  4.* I 


.0271 

_*S2vZ_ 

0 

.0222 

0 

.0297 

0 

.0*1* 

0 

.0535 

a 

•  Otlo 
0 

.0322 

a.«L£2fe. 

0 

.12*1 


•J 

.9790 


.o**; 

-«.?302._ 

0 

•  0342 
.^212*.. 
0 

.  0*3C 
0 

.0434 

_t_lS3_Q_ 

0 

.C3** 
-.526  £_. 
0 

.1183 

0 

.1*73 

,.S642_ 

0 

.21*1 
.  «£51£ .. 
0 

.3367 
1m  fi 
0 

.  74=3 
..Lm.Q.  _ 
.COif 
.*£*2 
_i*e. _ 

.0084 

.9955 


.07 
•  9600 


.066  5 
.afif. 
c 

.0557 

-c-41.4 

C 

.0726 

_>223C_ 

0 

•  1C55 
.9*79 
G 

.1362 


.1394 

..^aaa. 

c 

.2*10 


.35-5 
l.C  . 
0 

.50*6 


.92** 

—U'3 _ 

.01** 

•  99*3 

_ _ 1.0 _ 

.1*20 

1.0 

_ 1.0.  _ 

.*30C 
l.C 
l.C _ 


.0925 

_*92AS _ 

0 

.0830 

0 

.1076 

,a?*3 _ 

0 

.1*97 

.9ac? 

0 

.21*9 

„1.JQ _ 

0 

.2907 

1.0 

0 

.363? 

_ ImjO _ 

0 

.522* 

•-.0 _ 

0 

.6^51 

.-1.0 _ 

.3059 

.o’£i* 

_1.D _ 

.06*0 

.»9?6 

_ L*0 _ 

.2992 

1*0 

-U0_ _ 

.5  <=00 
1.0 
1.0 


0 

.165o 

_»55cu 

0 

•  2521 

_ijLa _ 

o 

•  327  o 

"o 

•  *19o 

_L.,0 _ 

•  J03O 

.52uo 

•UilS* 
.6652 
-ImU.  _ 

.  00=3 

.  6j:  7 

J.J _ 

•  ujU 

•  996b 

»2o3i 

l.o 

_Uo_ 

.*377 

1.0 

_ l  •  J _ 

.tOo 
1.0 
1.0  _ 


.16*2 

0 

•  2C*3 

_Uo - 

0 

.29*1 
.  i.u 
.Oo'S 
.3730 

_i.o — 

.oj*o 

.*e32 

.  1,  ii,  _ 
.Ov53 
.556? 

_i.a_ 

•  o  120 

•  6o4C 


.ol°2 

.6763 


•  l3a!* 
.993  3 

~tj73T 

l.o 

JL.O _ 

.623* 

■^7900 

1.0 

l.o 


£-3  5.0  £-3  7.0 

E-*4=>"aTo  E^*?oo7j" 

r-*f*2.0  £-*463.0 

e-*4— 6.0  €-0630.0 

£-*630.0  £-*7At5.0 


l.C 

r**  3  *r*  0 

=-3  3.0 

£-3  3.0 

£-3  7.c 

*•0 

6.0 

3.0 

10.  0 

46.0 

56.0 

52.0 

*7.0 

*1.0 

35.0 

a*.d 

69.0 

_ *2.0 

*7.0 

50.0 

*5.w 

*  3*  0 

79.0 

45.  0 

4*.b 

56.0' 

51. 0" 

116.0 

68.0 

76.0 

67.0 

5<=.0 

«3.w 

TA6lE 

NAME  *  IAS 

.SI2S  =  ie. 

*.  12 1 

J.  J 

£-32.0 

E-33*  C 

£-3*.fc 

€-35. « 

*.0 

t>*  w 

3.0 

O 

• 

O 

3*9 

.2617 

_UQ__ 

•  0053 
.3156 

i. a _ 

.  CC50 
.*2®$ 

j. a _ 

.112 

•  3260 

_i.O _ 

.01*9 
.4252 
_Ufl _ 

•  020° 
.67*6 

_J»$ _ 

•  C262 
.7333 

-L.0 _ 

.026* 

•  3963 
1.0 
.0*61 
.0355 

-±»JX _ 

•  2663 

1.0 

.ImO  _ 
.5186 
1.0 

-L.0_. 

.7C95 

1.0 

.3600 

1.0 

1.0 


c-3b. C 


ooiM.1  iiijiwiKtoff in  iMiiiiiittuajittHJH  j  •>  *1  bwii«w^  lajmUuiw 


.075 

-.20 _ 


126.J 

1*2.3 

*■3.1 

il2^_ 

1*2.0 

li9.0 


92.0 
.ULlU. 
111.2 
56.  *; 

lle.O 

122.0 


1*3.5 
161.0 
191.-J- 
!99  .ft 
lB6.0 
LJ3.i_ 
202.5 
20  fc.C 

JLf 

1»*.S 

211.0 


157.5 

-162.0 

lo-S.4. 

it>9.5 

_*5**5_„ 

170.5 

loo.u 

_is.3JtS_ 

161.7 

162.5 


13*.  3 

12*.  ? 

13  t.  £ _ 

1*6.2 

i*ft.C 

-13-6.2 _ 

151.  C 

i*t.  e 

1*6.2 
1  *c.p. 


11*.  £ 

112.5 
.125. £. 

130.  5 

131.5 
12'.  1_ 
130.2 
1*0.  ft 

_1 1  =.  ' 
13*.  ft 
1*5.0 


10°.“ 

10*.0 

_ 

11=.7 

120.5 
_  _  II 5. 

120*0 

12«.0 

12'.  2 

133.5 


90.5 
93.1 

SZ*J _ 

87. v 

97.6 

ltllUJ. 

lo-j.  1 

•>.5 


111.7 

121.5 
_lio..O_ 

1  lo.  0 
Uu.a 
U9-. «_ 
llo.3 

125.6 


o'*.  3 
s7.7 

—  £7^2_ 
ao.C 
9*. 5 

53.5 

90.5 

_ lo2.J— 

105.9 
109.  * 

_ lv*.L- 

111.3 

125.2 

_ 112.7 

lie  6 
115.0 


75.5 

_£S*A_ 
65.  S 

50.5 
S2.J__ 
55.2 
c3.7 

-59.2 _ 

106.0 

107.5 

107.0 

113.5 


-111,* 

167.3 

if  5. ; 

1*=.  5 

137.0 

12o*u 

121.3 

11*.7 

1=2.0 

17*. 0 

:5ft.  7 

1**.5 

13'. 0 

126.3 

115.7 

11*.? 

1=5.0 
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!".? 

1*2.2 

133.3 

125.3 
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113. S 

-Z.1A.3 

ie9. 

•ft  7.5 
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1*1.0 

13*.  7 

1*6.0 

120.7 

Zl*.5 
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15'.  5 

1*3.  ft 

139.3 

127.2“ 

120.1 

1=6.0 

175.0 

155.  C 

i*S.  C 

133.0 

125.2 
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,200.  o 

_ 
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1*5.  C 

139.  c 

l3i.  5 

12  5.1 

119.  * 
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i’*.  7 

15=.  C 

1*7.0 

1 3a.  1 
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126.0 

225.  0 
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-L=*72.5^C_£r4£30.  C_ 
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£-41353.  £-41960. 
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£-*3s.j.3 
E— *1^33. 
£—4 1 3*3 • 
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t— *2==s,. 
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£-4317-. 
£-*32*7. 
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S  -4753.0 
C. 
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C-4C.4.0 , 
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4*41153. 
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£-614,3. 

£-*1642. 
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=-41=20. 
£-*2*5'. 
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£-42270. 

=-425=0... 

=  -*.2i'4. 

£-*23*0. 

5,-43143.  _ 

t-*25il. 

=—4^322. 

=  — =272-3.  _ 

t-4UwOO. 

=  *4 

=-4* J.0C. 
=-4i3w00. 
£-*13-03. 


C— -!71c0 
. £-4773.0 _ 
£-47*3.0 
E-4«i°.0 
_ 1--1S05... 
£-*5=3.0 
£-*553.0 

.  £  *4  r*  *.  0  _ 

£-41193. 

E-41C43. 

.  £--JC*3*_ 
£-*1020. 
£-41*19. 
£-4 12*1. 
£-41220. 
£—41223. 

£-41506. 

£-*l*4i. 

£-*2015. 

£-41795. 

_£r4l*M^_ 

5-42003. 

5-42372. 

£^*2203... 

£-42220. 

£-*2730. 

,  £—4 10033. 
=-*10030.' 
€-410330. 

.  = -*  10303. 
t -410300, 
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MJOJLE  NAME  =  SUE 

C  flMMOfi-  GutPJjJ  ,£RA,i£Oj  C.  f  , fi. N£K«  S.C8.NPR.TS.DL 
COMu’i  VHCtPM 
COMMON  ALT, OAT 

.CCM.-.ON-RM  ,.-10  *  .J/M ,  NP7.HP1  tFK _ 


PF  =  U-ALT/  145300)**?. 255 
Tf  =  (0AT*27J.  16U288.  16 

_0P  =  PRZ.TR _ 

PTO  =  (.  j51*o.,*<01/0R)**.41*2.424E-5*VPC*GW» /( 1-PM/Uiul 


PRe  SSuKfc  RATIO 
T  tMPfcR AT  OR  E  RAVtO 
-JENS  IT  Y__RATJLD _ 


PPi  =  PTC!/(PS*(  l-’.0-!*(TP-l)H 

_sfo  .=  a.uo*ip>,A/NEfa.*±=JjLC'; _ 


C  =  3lO*PTu»TS**-i*GW**.?*CL**-.5 
F  =  ,035*G«,**»6S7 

..R_  =  .5b42»i,i.**.?*DL»»-.5 _ 

S  =  OL/OL  SCLIOITV 


PctR  AT  TAKEOFF 
ICTaL  ENGINE  RATED  HP 
_.aFU_^I_RAI£O..HP. 


TORQUE  a)  eNblNfc  OUTPUT  BUT  *R  RPN 
CURRENT  UTILITr  hELc  m/C  EXTERNAL  STORES 
_ rtn__KAfllUS _ 


Ca  =  3.1416*R*S/NMR 
RM  =  rt _ 


PAIN  ROTOR  CHORD 


MOW  =  GW 
VP  =  TS 
_ttE2._H_P.RA_ 
HP  1  =  PTO 
fcN  ^  r.EN 
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“CO-JLE  UAMfc  «  T  0  AlLCmAKCS  A'jC  CRUSE 

-JuRtUi**  .UM+hiPkAtliiSUCuaiSC.  ;kFL»SFfl _ 

CCMMOf*  fTIH 
ALT  *  0 

TIM  «  H _ 

WFL  «  0 

P»  =  (1-ALT/1*S300)***.25S  PRESS  RAT t C 

PL  =.  Q„l£  *  P*A  »  HR  «  TlP/SC _ FLEL  1NCP _ 

wfl=»i-l*fl  TOTAL  FUEL  USEC 

Cm  s  l**-FL  FINAL  GW 

TTIM  «  TIM _ 

ALT  *  AuOU 
OAT  *  J5 

■S-1-^-XO _ _ 

XPP  =  .9 17A 
OIS  -  SO 

-JJLS-a— UP _ _ 

PA  a  .9 

PP  »  ( 1-ALT/ L4S300) ♦•F.2E5  PRESS  RA.IC 

OP  *  Pk/lk  OENS.*RATIO 

OLN  *  G»/I4.141*«°**2»0R> 

=.  FK^iP«.»ti-2»Qa»{TF.-nn  max,  no.  avati. 

FOM  *  F*DR/G«  ORAO-AEIGHT  PARAM 

P  *  PA  •  RA 

.  i F.  e _ t s.-f.T.  pr c _ 

SAS  *  7J-SR* i5.?*( 1 5-OLN) H I FCkAlOOO 2S°8i  STALL 

TtS  *  SAS 

POK*T«bLt  PRalf aW.OLN.TASl 
Pf 0  «  PU*  •  Ga/KPP 
-LF_e»M  IS  LT  p.p  «  PRO 
pnw  *  p  •  kpp/um 
TAS  =  TAbi fc  TaSIFUn .OLN.PChi 

6il*gis/IhS _ 

°» F  *  P/IPR* Ck«*.S*PPA) 

SSF  *  TAoLE  SFlPIPPFI 
FL  «  T1H  *  P  •  SFO  »  SSF/tC 
WeL  «  t»FL*FL 
Gh  «  li»*fL 


mCDJLE  NAME  -  MAX  RANGE 

_ CC'«MOf*_k,nJ»U£AA_«  EaP-T.QjJ1L£C  «Ji£LiSf  Qjkfl _ 

COMMON  HIM 

INITIALIZE  SAk  =  0,TA;>  =  eC,0EL  =  5,FLl  *  C 
_ I A ILIA  LlZ£_LLMl_£_a _ 

ITERATE  CN  TAS.ATOL=l  A/S  FOP  MAX  RANGE 

PR  =  ( 1-ALT/ 1453001 **5.25?  PRESS  RATIO 

TC  =  (OaT*273«  16I/28R*  It _ TE  MP._£A  1 1 C _ 

OP  «  PR/Tk  DENS.  RATIO 

OLN  *  G»/(3.  1416»R**2»CR» 

...  PA  =  HRA«t/R»H-2,03»(TR-im _ MAJU_HP,_  A_yAJL,. 

FQM  ■  F*OR/G»  ORAG-hEIGHT  PARAM 

P  *  • 5*P A 

_ Lr_H— 15-UJ  .£JH»g*£tQ _ 

PORTABLE  PRo(FO*.DLN,TAS> 

PRO=PU«*t>n/RPP 

_ Pf F3pRw/(?RA*PR »TP»».5> _ 

SSF-TASLfc  SFCFMPRFI 
$A«i«SAR 

_ SAR_*  .1  AS/15  Si:  *S  Eli*  £&CJ _ 

OSAR  *  5AA  -  SARI 
SAS  *  7o-SM4i5.7-*Ci  5-DLN»/I(FCi.*1000***.25<>8»  STALL  RtAS 

_ IF  TAS  IS  GT.  SAS.DEL  »  ,Q _ _ 

IF  uSAR  IS  i»I  0»  TAS  *  TAS*GEL 
TIM  =  60  *  UIs/TAS 

_ F L  a  1 1 M  *  PRO  *  SFO  *  SSF  /  6C _ 

wf-L  1  «FL  *  Fl  —  FL1 
FL1  *  Fl 

TT1M  =  TT1K  T.l.M—-  Tl»q _ 

Tl  .l  «  TIM 
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HOOvcc  N&St  *  STiT  WEIGHT 

_.-.JCK0£8 _ . _ _ _ _ 

CC*<Mjh  HM,p.uA,VH,HP2,HPl,CAP,EN,S,C*i.N‘‘a.B0DY,wCft.WeM 
CC^HO;.  TAIL,  »lGI 

_£C:Udat_*Jl£»«LS _ 

N'ENv,  =  I.3S6*tS»(HP2/SN»**.733 

WBl  =  .  i5lc‘.*l(NG»<NULT/lCCI/<ia»*.l;c9»VK  j31*DHNit**.65«N0r-*«.Vl  »  I 

-SGH— f—  2.  1^2lu*»»^33 - dLATE_w EIGHT SUPPG3TING  CaLLUlAIIu^ _ 

*  =  2  *  RM 

43  =  6»*2/Afa  BLADE  ASPECT  °AT10 

A?  -  *M»Cg»NHR _ TCI  A  L_  SL_A  D  A  P  E  H  Si, FT. I _ 

OMNR  =  DH*Nr  01  SC  LOADING  •  NLHH.fP  CF  RCTC»S 

Ov  =  mOw/3.I^1S92/«'<**2  DISC  LOADING 

-Ny-f-=-.l.+>.255  »S««.aqc _ _ 

WH'Ja  =  .  5*RH*BPP**2*lE-t)A*U  12T*y**S*».  AUa».-,(.F*»#oSs/lY**.059 

PPM  *  9.  549*  VM/RM  HA I N  POTOP  RPH 

qms  -  5^SJ  «hP1/RS«« _ 

IY  *  .62<»6L-2*wOn*M.E35 

FLO  s  .  I2»(»oL«wH-J=  l«9F 

- aIE-*.; LIKPILa: c*1KJ«.C»A;V>L«*2-L**.I *23 _ TAIL  ROTOR 


BLADE  WT 


.a92*RH»*.6M 

l.Ufc2«RT**.773 


rF>»I.7P«tQM» IC I •«. 2*T AF*>. ?*  _ _ _ 

~TF  =  l.*3J*GM*»1.53  HORIZONTAL  ST  A£ I L I 2ch  lALlllaTIONS 

L  TF  *  . 9s*kH»«1« 02 

KLU  «  LU<H»«M _ _ _ _ _ _ 

FuS=RFOS»!au**.03*L-«A.O*»KGw«CMA»*l.le/C!HOw*krP.U!**.  TTn»»-*2*IX**.3BI 
LU  =  .2i5»hM*»l.«,7t  FUSELAGE  LENGTH  FUSFLAuc  »t l«rT  CALCULATIONS 

R_5_2«J  J* I  *»•  •  Ui _ FUSELAGE.  MOTH,  PAJ _ 

I»  =  • 221£-3*MO«»*l . P0T  POLL  I NE  FT  I  A 

h  *  .-.06*SlNM**i.22*  FtSsLAGE  HEIGHT,  MAX 

_S  l&gjl->aajL»HH«A«.7*La _ =  _LCj  a*JLI  nQ.-“WS£  JiLtiH-j(fc£*L  t4/IA*iift*._u,»NNCHN _ 

wTPo  »  .<.I*r**I.7E  WAIN  WHEEL  TP  E  AC 
TTP  =  13392.  =C«hP2/(P?»*«rw) 

AFUa  =  . 153»L TwP»». <?E»TAf». I  3*F  US  *» . * <•  /  Q»p / 1  T  TP» L T o  )  )  »«.  NS _ 

LTBp  3  i.s7*«T**.33A  Tail  ROT CP  PYLCN  length 

°T  *  .Uo7»rH**I.22  tail  pQTCP  PACItS 

_U9..f  36..u7/R.M*«,2?3 _  .  LENGTH  CF  TAJLPCflH _ _ 

Rpy  -  .Go3»HA*«.7?»TTP»».A2»TPY**.2A  PYLON  »tJGwT 

PA  =  .3J>»(  5*»T*LTl>Pl*».  AF*TPY«».7A  PYLON  PiiOULfc  ARC* 

»l  Gi  =  ,  i  5u»«klG«MO  W.S  y*  |  AG* 21  1*rTSD»*2.ap/I  X  •  *6 _ 

FC  =  .5odc-o*NG-»*I.07»NCF*».3C*VH«*l.e«S*\P»».A5/LJlA**.o9 
L  CIA  =  I.7ii»w«**i.00c 

wFS  =  .U63*I<.<AC«IFUS«AFUS*WPTI»>.2;*IHENG/EWF>  •  •J.  0&?VN**»  rl/HP2»>,  55 _ 

ENF  a  .2?S*nP2»».235 

V.\  *  26.  5.»HP2««.2S7»ENF»a.37  NACELLE  VCLU.Hfc 

w»TS  =  .»j^c-3«0HN-A>I.B2»N0F«»I.&SAC1.23»PHI»*3.B7/wMKl»».6a/»«P»».lA _ 

s««l  *  52.5j»rPl/SPH  PAIN  RCTC»  TC»CUE/100 

Pi  a  2.5.  7/RPH**.  I?A  Ha  I  N  TRANSHISS  I  CM  PEuucTi'-N  HAT  10 

«F  Ac_  =_,oie»EN*-^._GE  *_„£\-G»»  I.  93/HP2*»,59 _ ENCINE  ALCcajUhJ  *tIGHT _ 

«.CS  =  .25*-l3 ~  CCClInG  SYSTEM  WEIGHT 

-I  S  =  .OiA5*K«E*.e»»PTS»».  ITN'CAPyai.OI  LUeR IC AT  TON  SYSTEM 

WFS  _-_3.t*GAP»».Ji  __  ,  FLFL  JYSTEP _ _ _ _ 

*'fC  ='3.75»c.»f  3».  3 *p 61 

wSS  =  A.  lo»t  sr»-/rtP2)»*I.  H*l  „E.\G/£NF!*«1.37  STARTING  6YS  IEP 
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SHP  *  .0245*rtH2**.637  STARTING  MCRSEPCwE* 

_ ma.u_  transmission _ : 

0**.R5  =  525j  »mp2/RPN 

ACPrf  =  •  o  127 o*wHRfc**.  7fc6  ACCESSORY  DRIVE  PROVISION 

-DMR.a  _s_  525  Q*  nj>JUA£3 _ KA1A  _FQLO  P_1HP  CUE. _ 

«ITA  x  KITR*»MK2«*.  625*ITR  I  NT  tfcKtCl AT  E  TAR  RCTCR  GEARBOX 

0BR2  =  .07*w«k 

RnigKk3**xJ!i _ IA1L.RCTOS  GEARBOX  _ 

CBS 3  =  , i5*wMR 

-TSj  x  *.TRS*  lt-2*0,S  3*».  2 1  * t  lo23«RPI**1.64 

«£2i _=_i 5 .19.2* t2M^/100C?«».I7« fcjl**l»25 _ Ef>G lNc  LRIVE  SHAFT _ 

wsp  =  .2iV»gPR»«.AA*DPB*». IO*EPX 

CP*  x  »ot*KM**2/<527J.t  HAIK  POTpR  PCLAP  INERTIA 

JSRU.  j*_siL.S2*ACi»  V**x,QS°a*JEL _ 4U21LI  AR.Y_££*£P_P_LAl*I-  CrOUP _ 

KFU  =  .  l7dc S»CP»*.  32*CLL*li«*H)l •  l**C**xx«  05*ENF«*2.o/ftGi«**.fc2  FIXED  WEIGHT 

*«&»  *  2.  l-S*MO«A*.993  NCRPAL  GRCSS  kclGnT 

C»  =  t.LZZ _ Ui£-.klSH.T£IL-Vx.  LULS  _L£_.SiiCM*> _ 

kRT*  x  wtjL  ♦  «HUS  ♦  FLO 
TAR  x  kJR  «  «,hS 

p.nny  »  pla  ♦  Afus . *  mPy _ 

ASE  *  .15  •  FC 
fcFC  «  FC  ♦  ASE 

■PFOP  .=  »f«i.  ♦  SQo  ♦  «FAC . «  wCSl _ ♦„.  hl.Sl _ ♦  kFS  »  MFC  ♦  kSS  ..♦  «]|S _ 

L PC  x  *CS2  ♦  i>LS2 

»0S  x  nxS  •  ACP V  •  WITR  «  kTRB  ♦  wTRS  ♦  LPC  ♦  kEDS  ♦  hkS  ♦  Mk& 


>*  S_*_waS1  ~  xkS _ 

fcfA  X  h 1 f»U  ♦  nE XH 

»H  x  nRIA«TAlL*eCDV*kLGlAkFC«kES«-PRCP«WFIX*APU  ♦  KING 

KCSX.x  - 

kLSi  *  .Co  •  »LS 

-FS  x  3.395  •  CAP**. 711 

k?  S  x  .  IS  »  _»AS1  _ _ 

fclNJ  *  ,53  *  mE AC 
»Fxm  x  ,  *7  •  hEAC 

*_Ss _ 

kCS2  x  ,1  •  i,LS 
•I  Sc  *  ,  *  «  *tS 


'JnfcLE  hXAt  *  uacs>  tat  I  CM 

_ C2S.1u>  «?w.«H  . >»Ca.  *PL*Gfc_ 

Cm  >  «cH  ♦  prL  •  •  MPl 


HOOULfc  N*H£  *  HE  it  SIZE  0*1* 

CCH.'ttfci  M  TO.O*TO.Cy.«,C«C.C-.'«E»<2.kEr 

C0*W3H  ■PL.aPLO 


1:1X4, ICaQ 


*PL  «  *?L0 


Q  *  tiO 
6H  m  S»0 
Ucl  *  »h£HO 


ii.T  a  UC**' 
0*T  m  43  - 


ii*l0CO 


I'U 


MODULE  NAME  «  ANAL  HEIGHT 
COtMUftl  w^jMiKV*»£S^RTit.i>£i««Ca»M£M2- 
CCJMMON  On«Gn0tb00Y 
COMMON  TAlLtuLGl 

-CDMrtCN-  mXStMCS _ 


{W-gu)*12 

W*  12 


CHANGE  IN  TORQUE  IN  IN-L6 
TORQUE  IN  IN-LB 


IA0LL  dLAO(UlLB) 
G«/G«0— 1 


MODULt  NAME  =  PAYLOAD 

.  CJMiUlN-U.AIU«  Ai-IIL»AffiC«PH«Sk«iL»£Ej»»GkL«iigLX»l<SH2—  . 
COMMON  kfH.nCK 
COMMON  t.P.,2  ,U«2.*Fl2 

_2f_g_U.-^lW  i*£3QUl«  *£.-25-5 _ 

T«  -  (JATj«273. 161/258.1* 

DR  =  PR/  TR 

,  Eld—? _ fcftA»P-R*  1 1-2.  06*  l-l£rUJ _ 

DL  1  =  u*/( 3. 1416****21 

Ski  *  PTui*J  i-P-./lGul/«.C51MCLi/u?»»*.41*2.42«E 
«pPL2  =  0*2  -  *fcM2  -  *CR  -  kFL 


"OOULfc  NAME  *  ERROR 


C«HQri  EfuUj»-P-Ult>£U 
COMMON  g» 

GW  «  On  ♦  l.  5*HPL&-WPU> 


. . . . . vm . r« . . . . * . . . . . rw .  . . . nr, . . . . . . ■  . . . . . . . . . . . . . . . . . . . *"n . . . . . . .  ,T”  ^ 


'‘OOUi.c  HUE  =  JMAX 


mQUJl fc  NAHE  -  P1YL0ACS 
-CCM.HiU  PUr.-PJLA.PUJ_- 
rPL  -•  1  AL'L  t  PYLDtH 
PL  -  PPL/100*-PL2 
PUr_-  jACLt  Put  111  . 

PUF  =  Pur  /  100 


10£XH.e  NAME  *  CW*S 
A£*_=.-i«£H_l._A*CSL-*_  thft  ♦  IP L 


"COUL:  f*A«=  =  KSVe*  P=C3 

.CC'ttii.V  rKAX*X*5^i»£S,H,Dl,i:»,DGl..Vf;CjPJ!A*P*!.Al«£lAA.J*£lU _ 

INlIULUc  j  =  0,A  =  D,PT  *  e.CSLT  x  1 
s  1  -  J»uPh 

-£!_=_  I A  3  L  c_rt?J>  C£?^  1 _ _ 

TRA*  =  TAiLt  IHAXIHJ 

APR  »  |1  -  H/14C303»**5.2S5 

_Ci*«i_=  JL_»_  G»-«  3.A3?/XQGW*APai _ 

C3N2  *  47.5l£-5»VPC*Sh 
CW3  x  PAA»APA»t  l-Pt/lCC) 

A73  x  I _ _ _ _  _ _ 

"atr  »i.«.ei-.  J2R52»<  icor.i«*ia  f«»^*i*co?J/ccs»3 

ATR  =i.4oi-.Gc442*l  lCCM*ATa»»*.Al*CC.N2*/CC!S3 

_iJX  *l,*ol-rjLK^4‘2,l  «CCJji«Aia»»*.4IxCCN2l/JCCAia, _ 

ATS  =1.451-.  Jx*52e(  JCCM*ATR1x».M«CC*2»/CCN3 
iia  =i.46i-. J2<-52*J  (CCM*AT=:»».41*CC\2I/CCS3 

_AI"_=a.i.3l=.-24f^‘U£eiti*MRl»*.4I«CC»k2L«:et3 _ 

ATT  =  ( t  PIO* ( l-PK/100l-2.42£-S«Gx*vaCI/J.051»Gfc)>»»( i/.A.I/l CL«S«/I OG«»APRI I 
IP  ATT  15  LT  AYS.  aTR  =  ATT 

-AX  =  =ia£.lfc ...»  AIR  -X7X.lt: _ 

PT1  =  PT 
ATI  =  AT 


PT  =  TAaLC  T  PRO  I  AT 1 .HI 
A  =  GPH*ll-tPT*PTll/2»  ♦  A 

.  if-J-l  >_i.gLiI_«_a_x.j _ 

IP  AT  13  wT  T*AX  ,  DtLT  «  0 
IP  J  IS  GT  JKAA,  J  =  J  -  CELT 


i ter- re  ....  j  ,  atcl  *  .< 
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„<  iiMiiuwM  i  i#i:x  wii'i  hmfr  #1 


CONTROL  MODULE  FOR  TRANSPORT  MODEL 

1  COMMON  Gw,WFriWFtl,ufL-2iERR - - - - 

2  COMMON  Swl,CW2,W?LO,WPLl 

3  COMMON  PTO.PRA.SFO 

4-  COSMOS  GWO.wEN'  - - - - 

5  COMMON  wEM,NP,TAS,NEN,VAR,£L,N,DPL,W€R.Wfl.OPH,PRA,OGV,MFH 

6  COMMON  R.PTCtSFO.F 

-7 -COHMCW  INOV.O!  SC  t  AS.T.CAT - - 

8  COMMON  IOXA.IOXO 

9  COMMON  WPL2 

XO-  PC  I  NT  CNS - - - -  - - — - - 

It  RUN  MOC  SI2€ 

12  RUN  MOO  r  0  ALLOWANCE 

13  «U*  MOO- CL  IMS - - - 

14  RUN  MOO  CRUISE  AT  MCP 

15  RUN  MOC  FLIGHT  IOLE 

16  RUN  MOO  CLIMB - - - - 

17  RUN  MOO  MAX  RANGE 

18  RUN  MOO  TOTAL  FUEL 

19-  RUN  HOP-STAT  WEIGHT  -  - - - - - - - 

20  RUN  MOO  CROSS  WEIGHT 

21  ITERATE  ON  GW,  FROM  ONE,  ATOL  *  20 

22  WFL 1  «  WFt -  - - - - - 

23  RUN  MOC  STORE  OLO  CATA 

24  PRINT  ALT. OAT 

24--PRINT  GW.*EMiVfL,*PL0,PTO,PRA,3FG - - 

24  RUN  MOO  JMAX 

27  PO INT  POAT 

28  POINT  PALT - - 

29  RUN  MOO  NEW  SIZE  CATA 

30  ITR  -  0 

31  "POINT  TWO - - - - - - 

32  RUN  MOO  SIZE 

33  RUN  MOO  T  C  ALLOWANCE 

34  RUN  M0C  CLIM8  -  -  - - - - 

35  RUN  MOO  CRUISE  AT  MCP 

36  run  moo  flight  idle 

37  RUN  MOO  CLIPS-- - - - - 

38  RUN  MOC  MAX  RANGE 

39  RUN  MOO  TOTAL  FUEL 

40  WFL2  *  WFL - -  -  -  — - - - 

41  RUN  MOO  ANAL  WEIGHT 

42  GU2  *  GW 

43-  RUN  MOO  GROSS  WEIGHT-  TWO — - 

44  SWl  *  GW 

45  RUM  MOO  T  c  ALLOWANCE 

46-  -RUN  MOD  -CL  IPS - - - - - 

47  RUN  MOO  CRUISE  AT  MCP 
40  RUN  MOO  FLIGHT  IDLE 

49-  RUN  MOO  CLIPS - — - 

50  RUN  MOC  MAX  RANGE 

51  RUN  MOC  TOTAL  FUEL 

-52  RUN  MC-D-PAYIQAD - - - - - - 

53  RUN  MOO  ERRCR 

54  ITR  *  ITR  ♦  l 

55-  IF  ITR  IS  GT  MXTR,  -GC  TO  TMRE - - - 

56  IF  ERR  IS  GT  20,  GOTO  TWO 

57  POINT  THRE 

58-  PRWT  ALT,OAT<ITR  - - - - -  - - - - 

59  PRINT  GW1,SWEM2,WFLI,V?L1,?TC,PRR,SFQ 
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— 60  PRINT  CX2,HTL2, U?L2 - - - - - - 

61  RUN  KCa  PAPC  COSTS 

62  U  *  0 

63-  SCCS  *  0 - - -  - 

64  PO  WT  FOUR 

65  SI  SI  ♦  1 

—  46r-«ofi  .**00-P*YL040S - - — 

67  ITAT  *  0 

68  PO  WI  FIVE 

—  69  P.Of!  POO  ecus - - 

70  ®US  PCS  f  C  iiLCiOLVCE 

71  RUN  POO  CLIPS 

— 72— run  jtoc  cruise-  at-?cp - 

73  SOS  *00  FLIGHT  .OLE 

74  RUN  ,**00  CUPS 

—  75  RUN  *00  PAX-  RANGE - - 

76  RUN  *00  TOTAL  FUEL 

77  ITAT  *  ITAT  *  1 

- >§-  ITERATE  CPr-S*Ft,PTOL»l<FRC*-FIV€ - 

79  RUN  *00  HAIf(T  COSTS 

SC  RUN  *00  MOVER  ?ROS 

—  31  RUM  *00  1t£l - 

S2  PRINT  tCt£.S*El.SCPFH,SPUF.SPH0V.SPL«S5H,SCLF 
83  IF  AN  ISGT  SI, CO  TO  FCUR 

— -84— IOXA  »-IDR*— *--t - ■ - 

•5  ITERATE  FRCP  PALT, TIMES  »  5 


CONTROL  MODULE  FOR  OBSERVATION  MODEL 


1  COMMON  Gil,  W FL,  WFL  1,  WFL 2,  ERR 

2  COMMON  GW  l, GW 2, WPL  C»  WPL1 

--3  COMMON  PTO.PRA, SFO- - - - - 

4  COMMON  GW3,  VEM 

5  COMMON  W=H,KP,TaS,NEN,YAR,SL,N,CPL,WCR,WFL, OPH.PRA, CGW.MFH 

6  COMMON  R,PTO»SFO,F -  - - - - 

7  COMMON  1NCX  ,OISC,ALT,CAT 

8  COMMON  l  DXA • 10X0 

9  COMMON -WPL 2  - 

10  POINT  ONF 

11  RON  MOD  SIZE 

12  -  RUN-MOD  MISSION -FUEL — - - 

13  RUN  MOD  STAT  WEI  Gt-T 

14  RUN  MOD  GROSS  WEIGHT 

15  ITERATE- ON  GW,  FROM  ONE,  ATCL-—- 20 — - - 

16  W=ll  *  WFL 

17  RUN  HOC  STORE  OLD  DATA 

18  PRINT- ALT, OAT -  - - 

*9  PRINT  GWfWEM, WFL, WPLO,PTO,PRA, SFO 

20  POINT  POAT 

■21-  POINT  -PALI  - 

22  RUN  MOD  NEW  SIZE  DATA 

23  ITR  a  0 

24  POINT -TWO - - - 

25  RUN  MOD  SIZE 

26  RUN  MOD  ANAL  WEIGHT 

-27  RUN  MOD-MISSION -HME - - - 

28  WFLZ  *  WFL 

29  GW  2  *  GW 

30  RIJN- mho  GROSS  WEIGHT-  TWO- - 

31  GWl  a  GW 

32  RUN  HOD  MISSION  FUEL 

-33  WFL  1  «  WFL-  - -  - - 

34  RUN  MOO  PAYLOAD 

35  GW  *  GW2 

-36  RUN  MOD- ERROR - - 

37  ITR  =  ITR  ♦  l 

38  IF  ITR  IS  GT  HXTR,  GC  TO  THRE 

39  IF  ERR  IS  GT  20,-  GOTO- TWO- - - - 

40  POINT  THRE 

41  PR  JNT  ALT, OAT-  ! TR 

42  PRINT  GWI , tWEM2, WFfc4, WPL 1 ,PTOrPRA, SFO . . . 

43  PRINT  GW2.WFL2.WPL2 

44  OGW  *  GW 2 

45  WCM-a  WEM2  _ _ 

46  DPL  *  WPL2 

47  GW  »  GW2 

48  TdUF  a- l-  .  - _ _ _ _ _  _ 

49  iOCE  =  0  " 

50  RUN  MOO  PAPC  COSTS 

51-  RUN  MOO-MAINT  COSTS-- _  _  _ 

52  RUN  HOC  ME  I 

53  PRINT  $OCE,tMEt,»CPFH,*MIST-GW 

54  IOXA  =•  IOXA  ♦  1  -  . .  .  . 

55  ITERATE  FROM  PALT, TIMES  *  5 
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- - V 


1  COvlON  Gw,«FL,wFL1,wFL2,ERR 

2  COMMON  owl,Gw2,WPLO»WPLl 

-  3  CCM-Un  PTu,PRA,SFO  -  -  -  ■  - — -  -  -  - 

4  COMMON  GkOiiicN 

5  COMM  J.\  wcM,NP,T4S,f-EN,YAR,Sl.,N,OPL,.<Ca.WFL,CPH,PRA,U0wtMFH 

- <r  COMMON  k,PTu,$FO,f - ---  - -  -  -  - - 

7  COMMON  1NCX, CISC, ALT, CAT 

8  COMMON  IOXA,tUXO 

- 9  COMMON  WPL2 - — - - - -  - - - —  -  — 

i  n  r>n  »mt  nur 
«w  •  u  i  •« »  Ui«  C 

ii  pun  moo  sue 

— 12- «UN  MOO-FL1GMI  1  OLE -  -- - - -  -  - 

13  RUN  MOO  1  0  ALLOWANCE 

14  RUN  MOO  HOVER 

-15-  RUN  MOD  MAX  RANGE - - - -  - 

16  Gw  *  Gw  *  DP L 


17  F  *  F  ♦  CF 

— 18— -RUN-HOO-tlOVEft - —  - 

14  RUN  MUD  MAX  RANGE 
20  RUN  MOD  TUTAL  FUEL 

— 21 — RUN  -MOO— i TAT  WEIGHT - - - - 

22  RUN  HUJ  GROSS  wEIGHT 

23  ITERATE  CN  o«.  FROM  ONE,  MOL  *  20 

— 24— WH.1— -wFL- - - - -  - - 

25  RUN  MOO  STORE  CLO  DATA 

26  PRINT  ALT, OAT 

— 27--  PR  InT  G*»,wEM-,wFL-,«PLO,PTC»P«A,SFO - — . .  . . - 

29  POINT  POAT 
25  POINT  PAL? 

—33  FUN-MOO  i«rw  5UC  OATA  - — -  - - - 

31  ITR  «  0 

32  POINT  TwO 

— 93--RUV  MOu-5i2E- - - - 

34  run  mud  flight  idle 

35  »UN  MOo  T  0  ALLOWANCE 

—  36-  RUN  MtjrO-HUVfcR - - - - - 

37  RUN  HOC  MAX  RANGE 

38  Gw  ■=  Gw  ♦  Of»L 

—39  —  F  -*•  F  ♦  -OF - — . .  . . . .  -  -  -  - 

40  RUN  MUo  KiVfcR 

41  RUN  HOD  MAX  RANGE 

-42  RUN-MOU-TUTAf  FUEi- - -  - - - .  _  -  - 

43  WFL2  =  wFL 

44  RUN  MuO  ANAL  WEIGHT 

—  45 — Gw2  •- Gw - - — —  -  —  — - —  - —  -  —  - -  *  - 

46  RUN  MuO  GROSS  WEIGHT  TWO 

47  GW1  *  Gw 

-49  -RUN-MoO -FL-IGHT -I01E - -  - 

49  PUN  MJQ  T  0  ALLOWANCE 

50  PUN  MCO  HOVER 

-51-  RUN  MOO  MAX  RANGE -  - -  -  -  ----- 

52  Gw  =  Gw  ♦  UP L 

53  F  *  F  ♦  r*F 

-54  PUN  MOO-HOVER - - - -  -  - 

55  RUN  MOO  MAX  RANGE 

56  RUN  MOD  TOTAL  FUEL 

-57-  WFL1  ---WFL - - - - - - - 

58  PUN  MOO  P4/L0A0 

59  GW  *  Gwi 
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60  PUN  HOD  ERROR 

61  I  TR  *  IIR  ♦  X 

*  62  IFITK  IS  GT  MXTR  j-  *GC  TC  THAg-  -  — 

63  I F  ERR  I S  GT  20,  GOTC  Tt.0 
66  POINT  IMRE 

66-  PRlNl  ALI,OAT,ITft  - 

66  PRINT  G«l,4nEM2»NFLi*WPLl*PTC,PRA»5FG 

67  PRINT  G*2...FL2.wPL2 

"tfl  OGW— =•  Gw2 - - 

69  MEM  *  »EM2 

70  OPL  =  «PL2 

-  7  1 — fiy N  HOO  PARC — COSTS - - 

72  PUS  MOO  JMAX 
72  SI  =  0 

-74  soce-*--o - 

7*  POINT  FOUR 
76  SI  =  41  ♦  1 

7  7-  RUN  MOO  PAYLOADS - 

78  ITAT  =»  0 

79  POINT  FIVE 

80  »Ufi-  MOO  GG«$ - 

81  RUN  MJO  FLIGHT  IDLE 

82  RUN  MOO  T  U  ALLOWANCE 

-*}■  RUN  MOO  HUVfeR - 

C4  RUN  MJO  MAX  RANGE 

86  GM  ■  Gw  «  OPL 

36  Cf - 

87  RUN  MUD  hOVER 
P  2  RUN  MOO  MAX  RANGE 

6«  RUN  M-jO  TOTAt-FUEt - 

90  ITAr  =  ITAT  ♦  l 

91  ITERATE  UN  S»FL,PTOL*1,FRO  FIVE 

92  RUN  HUO  MAIN T-  COSTS - 

93  RUN  KJU  hdVER  PR06 

94  RUN  MOO  ME  I 

96  -  PRINT  -uCEi SCPFH»  SPUF^SPHCV  ,  SPlrrSSGrSvL 
°S  IF  4N  I SGT  > I >G0  TO  FOUR 

97  I OXA  *  IUXA  ♦  1 
-98  ITERATE  FRUH-  PAL-TrT  I  MES-  »  Q  - 

99  I OXA  •  1 
100  1 0X0  »  10X0  ♦  1 

101-  -I  TERATe-FROn-POAFr-TtHES-— 56 


CONTROL  MODULE  FOR  GUNSHIP  MODEL 


1  COMMON  GW,WFL,WFLl,WFL2.6AR 

2  COMMON  GKl. CW2,WPLC,WPll 

~  T  'COMMON  PTC,PP.A,SFO  - -  ~  . . .  ~ 

4  COMMON  GMOtWEH 

5  COMMON  WEM,NP,TAS,NEN,YAR,SL.N,CPl,WCR,WFL.DPH,PAA,CGW,HFH 

6  COUPON  R,PT"C,SFO,F  "  -  - -  -  - 

7  COMMON  INOX, DISC, ALT, CAT 

8  COMMON  IOXt.IDXO 

9  COMMON  WPLZ - - - - -  — 

10  POINT  ONc 

11  RUN  NOD  SIZE 

— 17  RUN' MOD  CRUISE- HOVER  ’  ANO~VNAX  ’  '*  - - 

13  RUN  MOD  MAX  RANGE 

14  RUN  MOO  TOTAL  FUEL 

— 15  RUN  MOO  STAT  VErGHT-  *  -  — - - 

16  RUN  MOD  CROSS  HEIGHT 

17  ITERATE  ON  GK,  FROM  ONE,  ATOL  *  20 

— 18  WFtl' *  LFL - - - - - 

19  RUN  MOO  STORE  OLD  OATA 

20  PRINT  AL”,OAT 

“21 — PRT  NT~  GH  *VE  M* WFC *  WPLO  *  PT07PR  A'»  S  FO" - 

22  POINT  POAT 

23  POINT  PALT 

— 2«— RUN  HOC  NEH~5T7E_CATA - - - 

25  1TR  =  0 

26  POINT  TKO 

"71 — RUN'MOO-SirE - - - — 

28  RUN  HOC  CRUISE  HOVER  ANO  VNAX 

29  RUN  MOO  MAX  RANGE 

30"  RUN  MOD  TOTAL  FUEL . . . . . 

31  MFL2  «  HFL 

32  RUN  MOO  ANAL  HEIGHT 

3T"  GW2  *  GW - - - - 

34  RUN  MOO  GROSS  HEIGHT  TWO 

35  GHl  *  GH 

36  RUN  MOD  CRUTSE-HCYER  ANO  VMAX - - 

37  RUN  MOO  MAX  RANGE 

38  RUN  HOD  TOTAL  FUEL 

— 39  HrL"l“  =  "HFl - - -  * - - - -  — 

40  RUN  MOO  PAYLOAD 

41  GH  x  CH2 

— *2 — RUN-MOCTt.XKCR - 

43  ITR  *  ITR  ♦  1 

44  IF  ITR  IS  GT  HXTR,  GC  TC  THRE 

— 45 — TF-ERR  IS  GT-20?"  GOTC  TWO - 

46  POINT  THRE 

47  PRINT  ALT, OAT, ITR 

~"*8 — PRTNT-GH17SHEM7i'HFLl,"V>PLT»PT0,PRA,  SFO  *  - - - - 

49  PRINT  GK2,WFL2*HPL2 

50  OGU  =  GH? 

— 51 — WEM*-WEN2 - -  -  - -  — 

52  OPL  =  VPL2 
5*  RUN  MOO  PAPC  COSTS 

"  54  RUN  MOD  JMAX - - -  - - -  - 

55  SI  *  0 

56  SOCE  *  0 

— yi — POINT- FOUR - -  - — 

58  SI  =  SI  ♦  l 

59  RUN  MOO  PAYLOADS 
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KODdlc  NAMe  *  HE  I 

_tPiUi£_«_l  _-_AA _ 

S*E1  *  *«'L*»PHuV 

tOCc  *  *OCt»*Kfc i/tCPPH^SPUF 


LIST  OP  SYMBOLS 


A  joint  probability  plot  area 

ALT  altitude,  ft 

APR  atmospheric  pressure  ratio 

AR  aspect  ratio 

AT  atmospheric  temperature  -  °F 

ATR  atmospheric  temperature  ratio 

BL  blade  loading  -  lb/ft^ 

CA  attrition  costs  -  $ 

CB  main  rotor  blade  chord  -  ft 

CC  crew  costs  -  $/f light  hr 

CD  direct  costs  -  $/f light  hr 

CE  engine  cost  •*  $ 

CET  cost  of  engineering  and  tooling  -  $ 

CFM  field  maintenance  cost  -  $/flight  hr 
CG  cost  of  GFE  -  $ 

Cl  initial  spares  cost  -  $ 

CL  cost  of  labor  -  $ 

CM  cost  of  materials  -  $ 

CMT  total  maintenance  cost  -  $/ flight  hr 
COPL  overhaul  parts  and  labor  cost  -  $/flight  hr 
CP  total  aircraft  production  cost  -  $ 

CPFH  total  cost  per  flight  hour  -  $/flight  hr 
CPIA  production,  initial  spares  and  attrition  costs 
CPOL  fuel  cost  -  $/flight  hr 
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LIST  OF  SYMBOLS  (Continued) 


DE  design  value  of  endurance  -  min 

DGW  design  gross  weight  -  lb 

DIS  distance  -  n  mi 

DL  disc  loading  -  lb/ft^ 

DLN  normalized  disc  loading  -  DL/BR 

DPH  incremental  altitude  probability  width 

DPL  design  payload  or  change  in  payload  -  lb 

DR  density  ratio  -  P/PQ 

E  endurance  -  min 

EN  number  of  engines 

EUF  endurance  utilization  frequency 

2 

F  equivalent  flat  plate  drag  area  -  ft 

FL  mission  segment  fuel  load  -  lb 

FOW  ratio  of  drag  area  times  DR  to  GW  -  IF) (DR) /GW 

FRC  forward  rate  of  climb  -  ft/min 

GW  gross  weight  -  lb 

GWO  single-point  design  gross  weight  -  lb 

GW1  first  design  point  gross  weight  -  lb 

GW2  second  design  point  gross  weight  -  lb 

H  altitude  -  ft 

HP  horsepower 

KPP  power  reduction  -  MRHP/SHP 

MEI  mission  effectiveness  index 

MFH  average  monthly  flight  hours  -  hr 
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LIST  OF  SYMBOLS  (Continued) 

MOW  maximum  overload  gross  weight,  lb 

MRHP  main  rotor  horsepower 

N  number  of  payload  increments 

NEN  number  of  engines 

NMR  number  of  main  rotor  blades 

NP  number  of  ships  produced  (fleet  size) 

OAT  outside  air  temperature  -  °C 

OCE  overall  cost  effectiveness  index 

OE  operating  endurance  -  min 

OLF  overload  factor  -  % 

OPL  operating  payload  -  lb 

PA  power  available  -  hp 

PHOV  hover  probability 

PM  power  margin  -  % 

POW  power- to-weight  ratio  -  MRHP/ GW 
PR  pressure  ratio 

PRA  intermediate  rated  power  of  engine  @  SL,  59 °F  ~  hp 

PRF  referred  power  -  hp 

PRQ  power  required  for  level  flight  -  hp 

PT  temperature  probability 

PTO  power  at  transmission  torque  limit  -  hp 

PT1  previous  value  of  PT 

PUF  payload  utilization  fzequency 

Q  torque  limit  of  transmission  -  ft-lb 
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LIST  OF  SYMBOI.S  (Continued) 


QMR 

R 

RA 

RCP 

R/C 

RPL 

S 

SAR 

SAS 

SFC 

SFO 

SL 

SM 

SSF 

T 

TAS 

TIM 

TMAX 

TN 

TR 

TS 

VRC 

WA 

WCR 


main  rotor  torque  -  ft-lb 

main  rotor  radius  —  ft 

maximum  continuous  power  rating  factor 

peicent  fuel  for  reserve  —  % 

rate  of  climb 

relative  payload  (to  design) 
solidity  =  a 

specific  air  range  -  n  mi/lb 

stall  limited  air  speed  -  kn 

specific  fuel  consumption  -  lb/hr-hp 

specific  fuel  consumption  at  PRA  -  lb/hr-hp 

system  life  -  years 

airspeed  margin  to  stall  -  kn 

normalized  specific  fuel  consumction 

actual  averaqe  MTBF  -  hr 

true  airspeed  -  kn 

time  -  min 

maximum  temperature  at  a  aiven  altitude  -  eF 

normal  average  MTBF  -  hr 

temperature  ratio 

main  rotor  tip  speed  -  ft/sec 

vertical  rate  of  climb  -  ft/rain 

AMPP  weight  -  lb 

weight  of  crew  -  lb 
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LIST  OF  SYMBOLS  (Continued) 


WEM  enipty  weigr.t  of  ship  -  lb 
WFL  fuel  weight  -  lb 

WPL  payload  -  lb 

YAR  average  yearly  attrition  rate  -  no./yr 

fi  rotor  speed  -  rad/sec 
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